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PREFACE 


This manual is the third of three volumes aesScripbing the internal Logic of VSE/POWEK. The 
three volumes are:- 


e VSE/POWER Program Logic Manual Part 1, LY32-5027) 
© VSE/POWBR Program Logic Manual Part 2, LY12-5vU23 
e VSE/POWER Pcogram Logic Manual Part 3, LY32-5034 


This volume (Part 3) describes the method of operation of the optional Networking and 
Remote Job &ntry functions. 


To use this manual effectively, you should be familiar with the concepts and faciiities of 
VSE/POWER described in the following IBM VSE/Advanced Functions pubiications: 

e VSE/Advanced Functions System Generation, SC33-6096 

e VSE/Advanced Functions System Management Guide, SC33-0094 

° VSE/Adavanced functions Operating Procedures, SC33-6097 

e VSE/Advanced functions System Control Statements, SC33-0095 

RJ&,SNA users snould also be familiar with ACF/VTAm concepts and facilities as described 
in: 

° ACF/VIam Concepts and Planning, GC38-v282 

e ACF/VTAM Macro Lanquage Reference, SC38-0201 


Pucther VSE/POWER publications ares: 


® VSE/POWKR installation and Operations Guide, SH12-532y 
° VSE/POWER Remote Job Entry User's Guide, SH12-5328 

° VSE/POWER Networking User's Guide, $C33-6140 

e VSE/POWER Messages, SH1275520 


° VSE/POWER Reference Summary, $H12-5435 
° VSE/POWER Shared Spooling User's Guide, SH12-5330 
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1. HETHOD OF OPERATION 


Part 3 of the VSE/POWER program logic manual contains detalied descriptions of the 
VS8/POWER phases pelonging to the networking and RJE functions. The phases are descripned 


using HIPO Charts. HIPO stands for Hierarchy plus L[nput-Process-Output which is a progran 
documentation technigue. 


4. Metnod of Operation 1 
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CHART BM: IPWSSBM - RJE,BSC MONITOR 


IPWSS$BA — Mainline 
INPUT PROCESS ouTeUT 





LCB 


LCBPLG< eae aaa 
LCBREQP 8 § s<------—- 


3 


Prom various BSC-RJE modules via 
IPWSIOR 


_& 





? 
7 : 
: i---— [or] If line is busy, goto ese’ 
nn, Analyze request code in LCB and trigger 
102 appropriate function. “ae 
CCWTABLE 

ieceinnieneieeteeneeel amtenel Create channel program to prepare the ana EE 
Hi laine. are oa ey 
eoe > 
iy 
ne Create channel program to allow line ern 
3 {04 | turnarounds. © aa 
p----- [es] Create channel prograsg for read ; 
3 sequence. LCs 
pamnoens | Create channel program for abnoraal 
3 reguests. ree ies Sake 
: coer >|07}] Create channel prograa for write ee sat 
: | {07 | sequence. ae 
- eee > 
| =) 
i----->foa] create channel program for read only Ree eae | 


requests. 


pico 


to caller eee 
e 
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rd 


Return 
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ae eee ~ Mainline 











NOTES [ wores  ) MODULE | LABEL | REP | BODULE | LABEL j REP NOTES { SODULE | LABEL | HEP 
1 LEE yaR | thas aodule as calleu by 10800 SSAV <1 - acknowledge last received svco {IT OWAKRTN ($bAG 
. “hich is responsiple far text but don*t allow read for a 
the Line aanagement, i.e. he has new text record seer res Rowse} ; 
to care about’ the error ESCOVEET in this case no free anput buffer 
and to keep the line busy, 2.e if aS available. 
none? has to send or reCeive t 
sorzet fing duamy 1/0*s are } 22 - acknowledge posatively (ACKO svco LOAKORTS 
start fe a aoe or it hes 2 ve ACK1) and allow the terainal to 
transmit tert. 
533 priate Boauie TBys$BR or 
I Ba calls this solu e@ to start <3 - Interrupt terainal to svco 
his oe cies at once by transmit text (RVI) 
overwriting the duargy 1/0 by his 
own one. The Solbow ang request codes handle 
If the line is etape 1.@€- an 1/0 abnormal conditions: 
has been paitgesy s icted and aot 
yet Gosploted. returo is aade LOETHIN 
iseediately to the caller. 30 ~ Retry the sant executed Svco LCR &Q 
2 DEROE vi aF the request code is Iva 20 


analyzed by davading at into maaan 

and Subregutest. 

The sain feguest resulting froa 

the left halfpyte of the request 

code is used to address the 

related branch table 

The elds f pass (ragnt halfpyte) 
ress the function chine 


31 - Restart the last executed 
channel program vith enable, 
prepare/no op, and read response. 


32 - Execute the disconnect 
gequeace with DLE, EOT and 


svco LODISKTN 


used t 
routine. 


3 Tne followang request codes create }|S¥CO IOPRERTH 
a channel prograg® in the lane 
prepare sequence: 


33 ~- Disable the line after a HALT 
I7O operation has been initiated. 


34 - Disable the dialed line by 
writing DLE-EOT. 


The follow an ang reguest codes handle 
the VSE/POW 


01 - Prepare a leased lane to 
allow a terminal/CPU to send an 


EBNQ character. write to terminal 


task wha somethi to send, t 


syvco . 
| 


sequence: 
02 - Prepare a switched line to 
40 - Write poet raa sparen’ text, 1LUETBRTS 
BENQ character. £TB and read response 
4 The following request codes handle 41_- wrate trans sperent text, ETb IOWTHRTA 
line turnarounds from read to and read respons 
write sode or vice versa. 
42 - ¥Eate nontranparent text, ETX ITOZXRTN 
10 - Allow a terminal to transait. and read response. 
11. - Initiate write sequence for 43.- write bait God haieta text, ETX LO£LRTB 
VSE/POWER. and read response 
12 ~- Write EOT to end 44 - Write temporary sere delay LOATDETE | 3 ONG 
transmission. and read response (fo output 


puffer ready to sent). 
5 The following request codes handle 
45 =~ WACK vreceaved froma terminal 


read sequence in VSE/POWER: Tomwaate| 


I 
! 
(no output can be sent} wrate ENQ 
and read response. 
LORVUsaTR | 


8 The request code 60 

(tne read onky reguest) is 
required to start a read operation 
when stopped by a write operation. 


20 - Do not eckaout cage last 
feceived text (NAK0} 


ut try tu 
get text again. 


svco 











; 

previous request cole. 
| 
| 


allow a terrminal/CPU to send an 
5 


ee ee ere eS ee Ne A ETE SS A VN 


svco ad as 
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CHART BR: IPWSSBR - RJE,BSC READER 








Send BOF asg Close Task 
and Wait 


BR-6 20 BR-8.0 





IPW$$BR - Mainline 
INPUT PROCESS 


coe 7Pron IPWS$SLA 


Wait till buffer is received. 





et en ee nnn, If remote is not signed on: 
eas perrrrte 
$ oc Signon Processing 
BE-2.0 
BUFDDS 
Received ee rr ere eee nrece Initialize new block, determine 
Buffer i Ot Heanaetaisn mode and fixed record 
woes nnn ength 


Secanee” 
\eeeeee > Debl.& Exp. Log.Rec. 
a BR-7.0 





t fe Se | /_.. 
< eecceee > Command Processing 


ry (oa 


POO Oe Oe ve 0008 oF Oe De com 


—~=-—-->]} 06 
Log -Reader 


WORKDS i 
aaneaa--------——------>} 05] If command received: 





peepee a 
eeoeoe >}Put Data To Log. Reader 
: / BR~#.0 
7—— . 
< picbied Get next input buffer. 
. ' BR-5.0 


[oa} coto r=" for } 


BOTES { SODULE | LABEL | REP NOTES 4 MODULE | LABEL { REP 


The task is attached by IPWSSLA as START ASCII data is translated to PRDATA 
soon as he received an ENQ. Now EBCDIC. 
the task has to wait till a real 
data buffer has been received. PRDATA10 


. . Blank records are ignored and not 
he s noe cars will be analyzed MAINLIRE processed. 
and va 
The DCTs for the device signing on PRDATA4O 


the signon Th " in jabea 
woe gettingya 4 iat stop-cole thee task 
i 
Suceeseraity coePperecs return is d 


now has “been 


made to mainline to get next data 


buffer. 
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IPa$S$BR - Signon Processing 
IupoT 


PROCESS 






BE-1.0 


Remote Table / 
resote. 


4. Entry Sweat ewere mn may 
i----- 
Hi 


BUFDDS 


Initialize new block 
transmission aode an 
leagth. 


WORKDS 
ical 
comma ni 


Analyze 1 
*,. <SSIGHOS 


character 


not been received. 


Return 


NOTES 


1 The features of the presignon 
remote are determined at 752B/ POWER 
gouergt son by PRAT aacro 


|} MODULE | LABEL |} REP 


% 


Ne 


The presignon rerzjote should have 
comaon characteristics to send 


error gessages to an unknown 
remote before it is signed on. 
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Set rerote characteristic af presignon 


dete 


7——. 
< ere Debl.& Exp. Log. Rec. 
BR-7.0 


Record for a valid 


A- If command is not valid queue 
appropriate remote sessage. 

B. If coanand is valid initialize reaote 
tics and DCTs. 


If signon is not complete or if EOT has 





eal | 
< cick 4 Get Next Input Buffer 
‘ BR-5.0 
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ourPut 
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ax record 







WORKDS 


BORKTRLE 


| WORKDS 
Bxrpanded 


aseett 











Rea.Hsg Queve 























ee "S$ 

fe=73 21 
To Callereee 

=I 


NOTES 
The logical record is checked for: 


§ BODULE | LABEL j REF 


SRLw 


Error nessage = 3R 
all pogical records are analyzed 
¥ 


until @ither mn is complet 
an ena of Tenalissian i OF 
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IPWS$BR - Command Processing 
IwPot 








DCADS 


Keyvords 


WORKDS 
tte ocked 


Bus nded 
Loge Record 





NOTES 


r 
' 
i] 
i 
Vv 


l 


PROCESS 





BR-1.0 


If command has to be processed by 
this task: 


Invoke teaporary comrand processor feee” 
and wait fbr coupietion. : [e=-’ 


Get parameters and rfors functions of 
the Eonmande fener — 


If the command is invalid, issue error 


ressage. 


Return 


1 HODULE | LABEL 


4 Commands related to thet and data 


files are passed os 
command processor task 


The temporary comg|and processor 
he commands and may 


will handle 
gocue = related messages to the 


fhe reader task waits for the 
completion of the command. 


e temporary 


coy oe 








fo Caller eee 
e 


HOTES 


3 The follow ing fauactions are 


perfor 


a ee TART task, clapres 
cated DCT entry 
are stored in 
ee classes suitch is set, assuping 
oa ee 13 available. 


2- STOP task 

ties asses 2 and the catpyt, switch 
are reset and the task wiil be 
stopped 


3. *- -SEEUP er yeee 
The nuabe: ee sis" ep 
and the seta is atopes ie 
the TCB of t task that 
wattang for fora b ange. 


no 
to be 


a. *..60 ta 
The fors i +a aication th 
oatput task teat: 3 Gaiting for a 
fork change, is reset. 


5. *..SIGHON weenote ait 


a “30 Sticste sign i 
aghored a and asg’ it aa oe 


6. *..SIGROPP 
Signof x process ing will be 
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IPWSS$BR - Put Data To Logical Reader 
INPUT PROCESS our pur 


[zh 
e 
eee >From BR-1.0 or BR-8.0 
SOLI Seen rose n eee emeeen en) If the logical interface is open coo” 
[04] already: ” 4 


i } th i TO and no | 
02] If the data leng oy igs A ) 


Coamand code has to pas. . 








oc? 
fos} Open logical interface. {pcrsoLz } 
ooo | 








WORKDS | 
Put data to logacal reader. ——}] | I-Log-header 
ni I HO 
gaeanie? = 
ecor : 
OF record has been written, then EEA 
oF eer esicel tertace: . | pet 
Retura 





fT RE 


HOPES | SODULE | LABEL | REF 


The deblocked and expanded ical SPLR 
record is put to eheP Tog teal? 
reader routine. 


The record pength of zero 
indicates the BOF condition. 





NOTES | MODULE | LABEL {| REP 
3 The logical interface is used by SOLI 
the logical reader routine as a 
second’ save area. 


$CLI 





IPW$S$BE - Get Next Input Buffer 
INPUT PROCESS OUTPUT 





jets >From BR-1.0 or BR~-2.0 
—/ ; 


[rere } AES reer | 01] If task has been stopped: [eee fos ] 


keset end of block detected and return _| 


To Callereese 
r l 


“/ 








fo2] eree 2 upee buffer, so that IPWSSLA can 
use it for further inpute | 


| Call line sanager 











fou} Wait for BSC posting. 
[ee 


NOTES 1 SODULE {| LABEL } REP WOTES { SODULE { LABEL {| REF 


POD Facog ({ * age SO tbe "ORY RRR DOEPOE vn 
task is posted by the IPWSSLA 


to keep the line busy, now the task. 
reader task has free he anput 

fer, a read data can be assued 
iasediately. 
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IPWS$SBR - Send EOF MSG And Wait 
Iepur PROCESS ourPpuT 


4 
eee 
TCB ‘5 
mee ee wee ener en pene for} If at job boundary or immediate stop: 
ere 
f-——". 
< phd Close Task 
BR-8.0 


Queve message 12141 to renote sessage 
queue. 









From BR-5.0 or 5.1 


Pree in ut & potter. ann that IPWSS$LA can 
use it urther in 


Reset buffer status bit 
set BOP on reader. 


Call line sanager 


Wait for BSC posting. 


So 
~J 


Continue at mainline 


To aT 
is 


t MODULE | LABEL | REF SOTES { MODULE { LABEL | REP 
SGAA Ee IP#$S$Le pene hus oie it pated $i0a 
next f/ st bith an Tip 


ten keep t! raat eas 

reader sie has fr input 
buffer, a read data can be issued 
immediately. 
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IPWSSBR - Deblock and Expand Logical Record 














INPUT PROCESS OUTPUT 
he LOB 
ree BR-5.0 or BR 2.0 
—_—_—— . LCBRCPT 
DCTTRANS  apeeneeotreateS If transmission is in non- ooo i nara 
_ | transparency aode. [e-7 | 
p--—~-> ] 02] Nove fixed length record to expansion a WORKDS 
LCB area. 
PEPER }WORKDATA | 
peer e a PPras 
E=" 


ne ee ee 


rene ones veces ne 


LCBRCPT 
BUFDDS 

Received 

Buffer 


an 
pee eees sece 
t 
t 
1 


NOTES 


1 ~Before Processing of a new block 
starts, the first BSC control 
h ster is checked. 
If this is STx, then aon- 


transparency aode is indicated. 
The block data length is divaded 


by the possible record length. 
If the yosainder is zero, then the 
record length is determined. 
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' 

' 

' 
Vv: 


3 
' 
| 
' 
f 





Hove data until next BSC control 
character to expansion area. 


If the BSC control character is for 
blank expansion (76S) , then skip. 
given number of blanks in expansion 
areae 


ES; 


If_the BSC control character is a record 
{ delimiter, scan until next non-BSC 
| control character or block delimiter. 





Caiculate record length and if end of 
block is reached, thén set indication 


To Caller eee 
e 
= 


RETURN. 











WOTES 


> Tisakes SenSret asaastrere oF° 
afcort cartier 
Blank expansion. 
& Same as 2. 
5 Same as 2. | 


} BODULE | LABEL | RBP 


1} MODULE | LABEL 


| 


| REF 
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IPWS$BR - Close Task 
InPOT PROCESS 









Caller 


for} Release the workspace by closing the 
logical interface: 


o cceaus’, 
plabsbalal Put Data To Log. Reader 
? . BR-4.0 


Reset pointer and flags in LCB and DCT 
entry. 





Post IPWSSLM. 


a 


ROTES $ MODULE | LABEL { REF 


1 This routine is called fron peer 
various places whenever a 


stop-code has been set. | 








OUTPUT 


RULERS ae | 








| 





(7 eae 
TCB O£ $$SLA 


{ TCEB 


) MODULE | LABEL | REF 


_ aS 
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CHART BW: IPWSSBW - RJE,BSC WRITER 


MAINLINE 
BE-1.0 
! 
i 
INITRTN GETRTS OPENRTN AMALRTN HFCRTB OLERTS BULLETS 


BW-2.0 Be-3.0 Bu-4 .0 Bu-5.0 BW-6 ..0 t BW-8.0 Bu-9.0 


SCERTB @RTBLK 
BY-7.0 Bu-SR.1 
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IPW$$BW ~- Mainline 


| 


eererytenenps epee coe seee-tireern eons Oe Ee SO Cr SS Et EE S  YS S S  S  E  N T 















| zp 





PROCESS 


| | fobs. 


ee ale Task Selection 


Initialize Task 


s—-.. 
< eecece > INVITRITN 
ca / 





BW-2.0 


f/——_* es 
< eeceee > GETRTS 
G 
TCTI?T 


=---------+----- _ A. If task stopped, go to BWSTOP 


! 
DcTosT2 | 


| 
| Get logical record or message 


eee. [18 } 
DCTOPDO=0ON [ —----------—- ~ oy of 
DCTEOFD=ON J : v 
poe i—----> B®. If task already opened, analyze coe > 
: command code ao oe 7 : oy 
| C. If no data has been for this reaote, 
go to BWCLOSE 
| [ss Mey 
a 
tcecce | 
| f4uor } meee ene s aaaheiennmemneteed 03] If Formas-Mount reguest to be [eee Oz 
tics [03] performed for ayant, —/ fox] 


Else branch to roras-roatine[oee’> 19 








v 
DCTOST2 
[pcroppo=on } a an es aE — If Terminal Open not performed 
f/f in 
<C eec0ceos > OPENER TW 
/ BW-5.0 
| If OPEN not completed [eee '> Ly 
"¥ 
fost Analyze Command Code 
DCTOST2 eed 
DCTEQJD: |. Sseear ests SST —> A. If End-of-Job or End-of-Pile 
DCTEOFD | indicated 
ph Baal I Branch to BWBLOCK{eee 3/15 
eas “i 
: uu 
: Cakeace > ANALRTN 
: : ~ BW-6.0 
i atenateaia B. If no valid command found et coe >f02 
next record .? iy [oz } 
| Ce. Sainline continued on next page 








NOTES { MODULE | LABEL | REP NOTES 


at the time the ced | to the Writer. 
terainal was succesfully 
completed. 


14 


OUTPUT 


eee gee Seep SE SY SEN (LR FOROS OURO SD i pu P= SER TS EDP FA S-fEPSPs OT NST SE AS ST NSP aT SS GO TAPS SD I AS 
a ea gO PRE a Ee SE a GP ATP =H RP PEE > SR AES SNES SY SU SS IA SP SNS SST SAS IS OS ST I Ge SAAR TS ST SL ST AA 


| SODULE | LABEL j| REF 





If the Line Manager LA found 2c If no data is queued for this 
either the message index not equal remote but th is the first 
X*®PF* or the list/punch output ime the Logical Writer was 
Switch *LCBOUSW* was set in the voked, no further activities 
LCB and the tine was in control are uired and the task is 
state, it bids for the line stop inrpediately. 
nd ing an E¥Q to the terminal. If 
the terminal is eeecy to receive 5B On return from the ANALRT 
t responds with an ACKO, which register 15 was used to index a 
orces the LA to attach a RJE branch table and contains a 
Writer task. ; ee value between 0 and 12. If an 
writer task can be identified invalid command code or an. 
ass: internal VSE/POWER record is 
ISG, LST, or 1IPUN analyzed, the record is ae ie pee 
; and a branch is made to get the 
The open switch DCTOPDO is set next record frorm Logical 
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1P¥$$BW - Mainline cont*d 
IwPor PROCESS oOurTPUrT 








| Clear workarea to blank eae ee 
ate t 
TCRL apace (22 If record length exceeds specified limit 

A. Truncate to allowed length. Bessage: 

B. Inform Remote Operator via message Testis males 
DCTOST3 | LCBLWAW 
[pcrrraws=on| ot nn nn fos} If Transparency Punch Data ara RR CRE 1 pay eacal 
EE 





> A. Create Punch Data Record with a 
fixed length of 80 bytes in the 
logical workarea. 





B. Update record length 


TCRV i! 


Branch to block ing fees /> abe) 


| =f 
LCBTYP | | Reg.P 
[txP2780 I pro fos} If first 2780 Punch data record | > BSC,4& 
Se 
A. Perfora coaponent select setup for 
| the first 2780 punch data record. 
8B. sranch to create physical record coo” 
[--° 7793 J 
CCTaB 
Carriage epee ae, Create print header (8scape,Carraiage — 
Control [29] Control. byte} ¢ Mae 2 
Table 
LCB 
LCBFZA4 . afr] If Horazontal Porat Feature -BFC- 


PS4HORFC=ON 


| 
LCBFEAY | 


[rusLsce=on 1 





Pee onsets cow 


[12] If Space Compression Feature -SCE- 


2 


ecceesse > SCERTN 
a BY-8.0 


A. Branch to update [ooo 
Reg -1 | keg.F 


cer, 

. > 

| A. Branch to update ee) fas | 

jLog.record } er NTIS LenS FY Move record into workarea Ce Sate ee eg Ee Data 


eT ee PS A SPE TS OE UT na STNG SY AERATED HS SNS TAS NS ET AE SS ST LT i TT TT I a 


eA EE GNU NS SY TS LE ET EEE SAE RAEN Re Cer SS SE ST Se ST AY TE SY SNC SY St 


RF 
! = Ee eee ee a ee 
14] Set End-of-Record separator and update > [LRS/IUS/uL 
workarea address [oo o= Oa es ee 


A- Mainline continued on next page 


































BOTES # MODULE | LABEL { R&P WOTES { MODULE |} LABEL | REF 

7 Tre length is checked against the S$GAB 9 If this is the Ist data record of 
allowed Length specat ied an the a 2780 punch task, the component 
rernote parasetersS. If a length select header is created in front 
Qeeacee than the specified is if of the data. 

ound, the message 1R26I is queued 
to the remote aeSsage queue, 10 gach print record gets a carriage 
inforging the rerote operator that Control sequence which includes an 
a SERA sca EIe8 Program performed a Escape (BSC} and Carriage control 
rint line length which exceeds character. 

he terminai printline size. ; 

The gocora is truncated to the 13 coats records of a fixed length 
allowed length. and move froa the logical into the 
. ; hysical area. If tae yecord # 

8 If transparent punch output is to ess than the specif printline 
be ert ormed, fixed records in the size, blanks are used as padding 
length 80 bytes are created. characters. 

Tne’ logical record is moved into . 

the physical workarea and the 14 The record separator is inserted 
record length is set to 80. depending on the terminal type or 
Control is then passed to the type of Output. Fhe workarea 
block jag routine to pass the address is updated and the record 
pecgee Ss single record in the length is accumulated. 

uffer. 
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INPUT PROCESS ourpur 
LCBFEA1 | 
FIASCIIsON | --+--------—-------- [14} Translate EBCDIC to USASCII if required. 


| 
| 
| 
pcrost2 | 


[pcroppo=orr] ~--~------—----------- $ 
4 


LCBFLG1 


[LP teoTR=oN } 


' 
' 
' 
1 
i 
' 
' 
‘ 
t 
' 
' 
{ 
t 
‘ 
' 
t 
‘ 


LCBWADL 


[not zero 


pcTOSsT2 


DCTEOQJD=0N } -----~-----—----——-- 
DCTEOFD=0N 


(ES Leena: ae 





pcTosT3 


foctseru=on 


| 


wow ee + > 


a 





NOTES 


COTES i(‘(‘COéOCOC*C*C*C*N CSODULE | LABEL | REF 
wm If V4 If working in USASCII mode the |  |MPASCIZT | in USASCII mode the 
record just created is translated 
to that’ sode. 


15A If a HFC initial record was 
created at open time and 

control was passed to the 

Bl oek so Fous. ane bee nit Bow 

reg 

bon plete (BcPObDSECH) aad pass 

control to the ANALRTY to 

perform the first data record. 


If the terminal o 
delayed the outpu 
sending input data, an EOT was 
sent to delay transmission. On 
receipt of ah EOT the Line 
Manager leaves the writer task 

an dormant state until anput 

has been per torsed and transmit 
mode was initialized again .The 
line manager posts the writer 
task to continue. 

It 1s now required to open the 
terminal Saprore which implies 
component selection and/or HFC 
Initial control ¢o be done. i 
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A. 


< 





MODULE | LABEL 
4PASCII 15¢ 


Ne en nee eee a arte gt Sona eee 


aha ane ze Ist data r Ide 
eoe >[05 if 
/ -// 
Was Transmission delayed by 
* Operator, Re~Open Terminal support. 
7, 
e@scese > OPENRTS 
of | aa 
If spanned record to be 15 
processed. branch [5] 
If neither end-of-—job nor 
end-of-data, get next record | 
[ooo > 02 
/ oA 
If in setup mode and end-of-job 
Branch to FORARTH [ooo > 19 
“| of 
v 
Mainline continued on next page | 


[35] Perfora blocking of record 


el 
e@eecoees > 
—r/ 


BLKRTW 











J 


BW-9.0 
DCTOST Z 
If a de initial record perforrjed at DCTOPDO=ON 
re set open flag corplete 





REF 





NOTES 


i& the last records did not fit 
into the buffer either parts 
the record vere roved into the 
buffer (spanned record) or if 
spanned is not allowed the 
record is still to be blocked. 
in this case, control is passed 


| REP SODOLE {| LABEL 


to the blocking routine to 
perform the record. 






ED Se HID TREAD Ge Clin Ga He Eee aes ee | a 
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IPWS$BW - Mainline cont'd 


TuPutT PROCESS 





TCB 

rn are 
! : 

LCB | Ce 


D. 


Ae 


t 

| 
Be. 
Ce 
De 

I 

| 

| 


BE. 


ee ne ge RS ET NEE EOE TE TNE 
cata ee ee A AE SY CO A US SEC A TS SS DS 








| rae) Close transmission for this job: 
I - 


{/—_—. 
< eocece 


‘ Send *end-of-text*® record 
| 


{oe} Perfora task termination: 


| 
| 
| 
| 


{19} Stop transmission tor this task: 


| BODULE | LABEL 





ouTPUT 





4 
/ 


If this is a message task 





4 


a gE EPL NE TORE SER ON ERS ED GT A SS SSM TS SEES NS SNM SP PN: SSRIS TP RS eS ST TL SS TS TP 


Save current forms-id in DCT. 


DCTOPRS 





Release Q-set from current status 


If no Lane-Turnaround requested for 


this task 


Return to get a new g-set. fore > oy 
V 


>| NULLRTW | 
/ 


| BH~SR.1} 





—_—_ 


LCb 


LCBLIBO 








Sperenees | 


Reset active task. 


If not a sessage task, close logical 
interface. 


Reset device status. 


petach Task from Task selection 
ist. 


To Task Sanagesgjenteece 
e 


@t 














If not _a sessage task and Lw not yet 
stopped, clear logical interface. 











Reset output switches and output 
Classes. 





Reset buffer-an-use- 
Set request in buffer to send E£OT. 


feoe > [t6 | 


—,/ 


Branch to termination. 





4 REF NOTES 





(| BODULE | LABEL | REF 











ples With a call of the logical SGLR 18B The logica} interface is closed scLI 
writer after the BOF or £OJ which iaplies release of the 
Indication, the job is deleted linkage workspace. 
froma the queue set. 2 ’ . 
an 2 : 48C 1. The trapspission status is 
16D If specified during Genera sion, reset in the LCB to teli the 
a line turnaround after each line sanager that the task is 
job is not requested. In this one. . mae : 
Case, control is given back to «The device specific fields 
the mainline to process tne are reset. These are: 
next job for this remote. DCTOCTB 
Beforé the next job from the DCTOST1 
Q-set is retrieved the last DCTOST 
record is written by calling DcTOST 
| routine #ULLRIW. 7 : DcTOSCT 
The line turnaround is ignored, DCTONRC. 
the task is to be stopped { 38D The task is now detached froa $DaT 
the line is to be stopped the task list queue. 
orc the output terminated Control is given to the nucleus 
due to length error. and never returned. 
47 «~STX-ETX indicates end of BUTERA 19 If this is not a message task the BUSTOP {|SGLR 


transmission. The request for an 
*EOT* to be sent brangs the line 
in a turnaround state. 


| 
| 





logical writer is invoked to tree 
the current Q-set. ‘ 

The output switch "LCBOUSW® is 
reset. 

The class list in the devace entry 
is reset. 


Chart Bw 
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IPW$S$BW - FORMSRTN Porras Change 
INPUT PROCESS OUTPUT 





1 [99] Handle Forms-change and setup procedure 





















if 

' 

! 

1 

t 
Ve 
Be 
° 


Reset End-of-Job flag if dispatched ---~-----~--—---4 
after SETUP command was received and 

leave routine to handle setup 

request. 


| A. Reset temporary message flag DCTOST2 
' B. Send Null-Record (STX/ETX) to force --------—-----— 1 
a line-turnaround by the Line 4 DCTMSGT=OFF 
Sanager. i———<— 
/-—-. 
| < abana NULLETH ' 
BW-SR.1 
oct 
r---7 > Cc. If entered by SETUP-EOJ, Invoke DCTZOJD=OFF 
: logical writer via IPWSCLR to ptteon> 
| DCTS ETU ] eoco— Ao an oman S reposition data pointers. 3 
beage es 3 : 
: D. Put task an Wait, waating on : 
<<<<--> ——. re GO/SETUP coamand. z 


PUTER Ge On Ge tel OF De rece sees teed 


| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


1 
I 
| | Return to Sainline. BWGET ess 02 
| | —/ *y/ 
a aa aakanten een $ P. If task dispatched but forss eerie | 19D 
mount request still open, i es 4 Cee | 1 
into wait state. 
| | | 
Return to Sainline. BWGETfecee >[f02 
| AT 9 
| 
Peat 
















NOTES { MODULE | LABEL | REF 
T9A The temporary sessage flag is | | 





{ MODULE | LABEL | REP 


49D The task is now put in | jesre 
WAIT-State, awaiting remote 
operator intervention to 
continue processing. 

The only valid commands are: GO | 








reset because of the sta of a 
separate message task. 






pis? It_ is now required to send a NULLRTN 
Null record to allow the Line 

manager to come into control 

| state and to attach a separate 


and SETUP. 


I9E After the task is being 
dispatched, a test is perforred 
to guarantee valid cormand 
authorization, this isplies 
that a SETUP/GO Command was 

} received by the Reader task and 
either the page setup procedure 

of normal data transgission 

will be perforred. 










gessage task to send the foras 
mount message to the terminal. 
lac If the routine is invoked by | $GLR 
the setup process, the Logical | 
Writer has indicated: 
end-of-data for the setup ‘ | 
° 








pages, it is now require 
invoke the LW again to release 
the setup request. 






oo 
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IPWSSBW — INITRIN 
ISPUT PROCESS ouTPOUT 


| ol 




















> LCs 
eee >Prom Sainline | LCBWADL 
/ | LCBUDATL | 
foal Initialize buffer fields. Sean sos eet) nett rane 
. i) EEE ens | LCBWEOBA 
aaa | LCBWBFST 1 
cried 02] Initialize task specific fields. it aceGEESE S | 
TCB | 3 | ———_—__— 
[vcr pom LOST SGebhdg dad HES LPL CEES SSIES weiter | 
| | = a 
| te Return to Mainline | | $ lperocse H 
lperosT3 
Exiteee | 
e 
| v7; 
| k | 















WOTES t 


1 #If this is a message task, the { 
Device Entry for the message task t 
! 





HODULE { LABEL 


REP NOTES } MODULE {| LABEL | REF 


3 The logical interface to the | | pS OLE 
Pot | 
| | 
t 


Logical Writer is established via 
| 


the IPWSOLI Macro and the 
Sappington iia Decrement ie ak ieee aegis laminate iene 








is updated with information 
derived from the reaote 
arameters. 

CTOCSC = 11 component select 
Character for messages. ; - 
DCTOPLN = qongte of one prantline. 
DCTOSCT = 4 12 line spaces 
requested after message. 


workspace ownership is set to the 
Lane Hanager TCB. 





2 If this isa peace task, the | 
device entey For the punch task is 
updated wi information derived 
from the remote parameters. 

DCTOPLN = punch card length. 

If the rerote feature is set for 

trans BTency the Status 4 ie 

DCTOST3 is flagged (DCTTRANS=ON) 

to indicate transparent mode for 

this punch task. 

Ifa list task is affected, 

DCFOPLN is updated with the 
printlength ecified in the 

EFemote parageter. 















| 
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IPWSSBW - GETRIN Get Data/Bessage 
IePuT PROCESS OUTPUT 


ae 
ur thee Sainline 


pean s——---2 101) If list or punch task: 

Save previous cCogsmand code ; 
, crarane if stopcode set, reset setup in potest eee eee 
progress. 


A. Get data frow logical writer. 














pert 
cataceaamee B- If End-of-Q-set or no aore Data feee > 2 
are available: bara: i : [e=*’ 05 | \ >} {DCTOPRC 
jon appropriate indications in 





coon. >{02z} If msg task or a temporary msg to be 
pctTost2 | we cae processed: j 
[ocrasie } i wereseseees= ao! J A- If first tise anvoked for this task: | 


ood 


| B. Handle first message set-up 
procedure. 


LCBFEAS 


t 
roaeearnuremcaiiat | “If no more sessages for this remote. | 
J 
| 


A- Set up four times a space 3 dumny 


t 
t 





| | 
| | cormgjand to make the message sore | 
visible. 
} | B. Return to sainline [oce 
H —,/ 
LCBASGI 
Jeepers end eater Jos | Retrieve message from virtual message 
{ queue. 
fost} Return to Sainline. | 
el 


=] 





—_ 
| 
| 
| 
| 


en LD NN eS ED SS SE SE TEMES GO AS Sh SEEN GRD CTU Ss SP: RP SR aT SPREE EI Ss GP-S ROR 


eS SS A SS Oe SS NS Sc STN 














NOTES | SODULE | LABEL | REP KEP 


$GLB 


WOTES 


2a If reguired, an eject command 
is u to force a skip to 
channel 1 on the reszote 
terminal printer instead of a 
space 3 command. 


§ SODULE | LABEL 


: 
z 











1 If this is neither a message task 
nor a temporary message is to be 
processed, the ,O Ace wrater is 
invoked to get a ogicel data 
record. On return, t 
0?#1 are used to indicate 
exceptional conditions. 

Reg.} = zero (no Q~set is eligiple 
for this reaote). 


he regasters 


3 If no aore aessages are queued for 
this regote, the end-rgessage 
proceduse is executed. : 

he procedure handies a 4 times 
Space 3 command to be executed to 
make the message more visible for 
the remote user. 


4 Get a message from virtual message 
ueue. 
eg-1 contains the address of the 
meSsage and reg.0 contains the 
length of the aessage. 


Reg.-0 = zero (no more data 
available for this set}. 


detected, the Device entry as 
flagged (DCTZOJD=0N). 

IF nO more data has been got, 
the device entry 1s Zragged 
with (DCTZOFD=ON) and the 
output switch is reset. 
(LCBOUSW=OFF) 


2 If remote not yet sjgned on, the 
message is a kind of error message 
for a terminal whose device type 
is unknown. Unfortunately there 
does not exist one way for all 
different terminal types, to make 
the error ney visible (i.e. move 
it over the agi that after 


the error msg 5 ank lines are 
senate 


/ 
ganar « | =% 
| 
: 
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IPw$$BW - OPENRTH Open Terminai Support 
INPUT PROCESS OUTPUT 


coe Pro Mainline 

















B. If selection rejected, force | 





irgmediate stop. 


Cc. Return ee 7 fos 


iE 








D. Send CS seggence to select required 


ome 


LCBTYP 
TYP3741 wereewnn ee -------- 504} If terminal type =3741, nothing to eee'> 05 
TYP2780 i is do. af . ena fos } 
ticles nce eee = 
: { 
Leowooe >foz} Perfora Component select if 2780 type LCBABUP 
t—J transparent pode 
| | A- Move Component Select for 2780 in >p{STX,ESC,4 
puffer. | 
B. branch to write CS to terminal. f[ece >[03p 
_—/ 
LCBFEAS 
fracomst 1 ae a ee --->[03] If terminal uipped with Component 
[ravonrc | | Select Featuce 4 
A. Reset Component Selection aD: ee 
/——! 
< eocceoe Pe 
/ BU-SR.2 


CUT RIECRISISINIEIESISIBISISTE OS MISSES 











| > 
terminal I70 device. =| il 
{| —. | | 
< eece OF eek ees WRTBLK 

| a — . _ 
LCBFLG1 1 | eee | 
} LF 1EOTR=ON } we > £- If selectaon rejected, but ty > 
7 aaa | not a 2780, force isgsediate TP op. ‘ 
: F. Return | 

a is*2 7 
: | | I 

re 


—----> fou} Test if horizontal format control 
~~ request for printer. 








A. Create a horizontal format control 
initial record for list device. 


J 
| Return to Mainline. 
| 
| 





ram NY 





To Mainlineecee 
e 


ee Ee RE RE ES A SS AE A NS SS A SE SN EY HEE NS ST SST SS RI HR PSD SY GAAS EES A  SD 





eo 


AY ET ET BF EE EN SEE: SY SS AT SS SA 

















NOTES { SODULE | LABEL | REF NOTES ' {| wWOTES § MODULE | LABEL. | REF 4 | LABEL . [| REP i 
e terminal is a ype, e routine implies to wai' 
1 If the t 1 3741 t OPENRTN The @RTBLK t li t t 
neieaer co eaent Bobects0n hor on posting by the Line Manager. 
orizon orr—at control is 
| supported. { i 3B If the terminal is not ready to. 
| teceive the CS sequence, it 
2 If the terminal type is a 2780 and sends an *s8OT® to reject 
punch output in transparent aode selection. The task is then 
- to ve PORECERS?. ait is reguired forced to stop iamediately. 
oO write a sequence in 
mOnstrans azent dodo. This) ia er | 4 as the terminal aos bess on ath 
sending o ° o selec e@ orizonta orma oatrol -HFC- 
puncher on the’ 2786. t and it was ecified at generation | 
tame to use HPC for print-—output, 
3 To_make Sure that the termanal anh Mitial HFC record is created 
vjil be Eqee® before CS will take am the logical workarea. The 
pia it eae tase to write a Eecord is’ as follows: 
eh be “Record is X,ETX) first. This ceeccoce 
sequence is set fn the buffer and Slots. of 10 by tes are created 
control is passed to transfer the ees the printiine, each slot 
buffer to t line. t ats swith a *HT*® control 
character. 
3D The teraanals I/0 device is now { td pd record is available for 
selected via the CS eg ence. locking and control is passed to 
The sequence implies: STX,CS the Mainline. 
Note: CS is component select 
Character as it is required for 
the terminal; 
DCI = CS output #1 
bC2 = CS output #2 
pc3 = CS output £3 
This Sequence is set in the 
buffer and control is passed to 
| TE AUeteE the buffer to the | 
I t t 
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IPWS$$Ba# ~- ANALRTH Analyze Command Code 
INPUT 


Licensed Material - Property of JBM 


PROCESS OUTPUT 








Tece 
X*07*or 1 aaa S be 
aa ce ns ca sa smi es aah ee Panes 
| = 
oe noe 
\ 
se dente ee eheee 
| 
- sbesk 


| Tais routine uses a vector value 
to perfrom the correct actions for 
the various command codes set in 
the field TCCC. 
Vector values are; 
00 Invalid comsand code or 
internal conaand ; 
04 Beute command for print and 
unc 
8 Carriage control commjand for 
cint only 
c¢ Valid punch comaand 
The register 15 is reset to zero 
to asstme an invalid command code. 


2 If bit 455,647 (xS0F,48;.-FE*) or 
bit 5,6,7 (x'07,47..-F7*) of the 


TCCC is on, the comsand is invalad 


and control 1S given back to the 
mainline with cégister 15 set to 
zero. 
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fainli 
ae keg. 15 


i zero } 


Set vector value in register 15 to zero. 


fooe'> 06 
/ 


If command code is not valid 


If valid command for punch, only 


H A. Set vector value for punch and 
return 


If printer vertical foras control 
cosgand 


A- Set vector value and return. 


Use vector seine hex*04* for valid 


output Comma 


Returo to Mainline 


| SODULE {| LABEL | KEF NOTES | MODULE | LABEL j REF 
{ If bit 5 and 7 (¥°05,15...75") of 
Tccc One a valid punch command 
e 


is found. The vector value is set 


*O0C*® and control is given 
back to the gainline. 


If bit 4,6,7 (X°0B,1B...PB*) or 
bit re tg3$ of the 


6,7 ¢13.--F3*) 

Cc On, a priater garriage 
control combaad is found. The 
vector value is set to hex*08* and 
control is given back. 


If pit 4 and 7 (x*09 irises § or 
bit 7 (X*01,13...F1*} of the Pccc 
field is on, the command is valid 
for print and punch output. 
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IPw$S$Bw - HFCRTW Horizontal Format Control 
IsPouT PROCESS OUTPUT 


job. | | 
eee >From Mainline ; 
ier, Registers 


fort Bropare registers to process a slot of 
i—t 10 bytes 
we een nen nee If less than 10 bytes to be performed 


Ae Eyepsre registers to process part of 
s 








Scan_ slot fros high end to eliminate 


trailing blan 
Reg.1 | 


prmanae Bove sty 10g Of nonblank characters into 
workarea 





them by H control character.. 


>0 en wn en mn = - -- 9 106) IF 1 al record not perforrzed eee > 
To —«d og cord not p » — feveafor} 


ic 
loop with nex 


[o7] Exit 


physica 
}05j If trailing blank characters, replace 


Return to satan 
e 
Pe 

+/ 


' Registers 
| Dee] +2 


NOTES {| SODULE {| LABEL | REF 
The purpose of HFC is to el 
al'ing 


NOTES | MODULE | LABEL | RBF 


3 The slot is now scanned to 
eliminate trailing blanks. The 
eren stoe4 af a noOnblank character 

ound. 


aa inate 
tra blanks of each 10 hee 
slot and replace them by a *HT® 
control character. i 

Tf no trailink blanks in a slot, 
no HT will be set. 


The record length is checked for a 
value greather than 10 bytes. if 
less or equal than 10, the end 
addresses are eedarod to perfora 
the only or last slot. 


The non-blank string is now soved 
into the Sical workarea. If 


tea uing Binks where found, the 


HFC control character *HT*® will 
follow the nonblank string. 


If this was not the last slot, 
rocessing continues by stopping 
ack to perform the next slot. 
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IPwS$Bwa - SCEBRTN Space Compression 


ryP0T 
| | Re 
eoe SFroa 
Reg-3 “| 
__In 
[ae | 
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Reg.1 


Frorm-Addr 


NOTES 


af the record length is_less than 

3 bytes, compression will not be 
done and the short record 1s aoved 
into the workarea. 


! 
The TkT instruction and table is 
used to find the first blank 
character of the record. 

Note: The TRT stops if eith 

blank is found or tne Length count 
is performed. If a biank found 
Feg ister 1 contains the addcees of 
the blank character. 


The epoEpese ~~ Phe purpose of Space Compression | |  °&4} Space Compression 
is e 

and replace them by an IGS conte or 
sequence. AUltiple blanks will be 
compressed as follows: 

IGS,CT where CT is count of 


igminate multiple blanks 


blanks. 
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MODULE _ __ NOTES. —“(‘(‘CSC*C*C*C*dE:CMODULE | LABEL Of REP LABEL 


ig 


[3] 


Licensed Material ~ Property of [Bm 


PROCESS ; ouTPUrT 






Mainline 

If less than 2 bytes to be ooo” [os 

coapressed, finiSh record ‘| . 
Registers 

Scan to find first blank character 


A. If no blank found, oranch to fose’>fos ] 
Rove total reord / 


B. Hove string of non-blanks into 
workarea 
Scan to find first. nonblank character 
A. compress blank character according 
to Space Compression rules. 
If record complete processed 


A. Branch to continue scan 





Pinish physical record. 


A. Sove string of non-blanks into 
workarea 


Exit 


Return to Mainlineeee 
=| 
27 


REP BOTES 





Roved into the physical 





2B The non-blank string is now | 


| 


workarea. 


| 

} 3 The TRT instruction and table is 
used to find the first non~blank 
character. 





3a The aultiple blanks are now 
el iminat by insert of the SCE 
control sequence. An IGS is 
inserted ia the workarea and 
the count-ayte followed the IGS 
is used to Count the elisinated 
blanks. 


Bach record is followed by a 
record separator, which depends 
on the type supported. Eather a 
*'NL® (new linej or *rus® (unit 
separator). 2 is stored to 

@ the record for 


coaplet 
ock ing. 
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IPWSSBW - BLKRTN Blocking Routine 


report PROCESS 


Mainline 


If Buffer to be initialized 


Ae Initialize Buffer headers according 


to terminal type and mode set. 


B. Inatialize record/block counts and 
buffersize. 


If record does not fit into buffer 





ecords if applicable 


_ | 
[Physical } 
| | 


Move total or part of record into 





A. peeee registers oe postors spanned 


Record | 3 
poeres 2} buffer. 
[ne | 
A. Update addresses and transmission 
data counters. 
| 83. Update record couat. | 
E fees If record limit not exceeded or fooe™ 
-e eo buffer is not filled u—,/ 
A. Update buffer trailer information. 
B. Link to pass buffer 
4, 
< eecese > WRIBLK 
i BR-SE.2 
| ee 
| fost Retucn to Mainlane | 
J 














NOTES 





| MODULE | LABEL NOTES 





| 1 The puffer has to be initialized, | | 3 Anyway, the record or pace of the | 
whenever the buffer has been { record are moved into the buffer. | 
written or the very first tise. The buffer address, Record address 
This includes a setup of the and the transmission count are 
header pytes. updated. If multiple records per 
DLE,STX if transparent aode block are to be processed the 
STX if non-transparent mode record counter is decremented. 
| . 4 If either the record limit exceeds 
The allowed records within the or the free space of the buffer is 
} buffer are set in the DCT and the eapty, the buffer is ready to | 
Terminal Buffersize is loaded. send» The buffer request field is 
; P ; updated to tell the I/0 manager 
2 The recordsize is compared against the type of mode, including Setup 
the free space 1n the buffer. If of the traiier bytes. 
the record does not fit into the DLE,E?B if transparent anode 


buffer, spanned record processing 
takes place if the terminal is not 
a 2780 type, which do not support 
spanned records. 





reg ome ee 


Returneee} 
qise 
/ 


ETB if non-transparent sode | 


OUTPUT 


e 


CB 


[iceweur 
- header 
| 











ee SES ee ET NT Gr Eee RN 





LC BWBUP 
Records 





LCBWEOBA 
{LCaw DATL 


Al 





bet 
DCTONRC 


| LCBWADL 


B 


BBePLD 
| Request 





: 





| 


So ee Oe NE RE I SE CEE GS EE ER GTR SO I SE SS SI OT SR GL SS EY pe 


Vv 


| 

| 

| 
aa 
| 

| 


nel 


{ SODULE j LABEL 


| 
| 


ee ee Se Se OE A 


Chart BW 
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IPWS$BW - NULLRTN Send Null Record 








INPUT PROCESS ourpur 
1 oka, 
t eee >From Caller | 
fort Set request for "end of text*® into LCBWRPLD 
buffer. 4 pecan get aie ees 
LCBWDATL 
LCc3 > |LCBUBUP | 
LCBTYP brennan na ann S |peroprsr 
! | | 


if buffer not emp pty: 
update data~lengtn 


set buffer-in-use. 


em mee eee ee 








ate data-len 
upd Suftercin- ages 


pe eese et oseece ad 


| 
| 
[oz] For 2780-terminal: 


If neceseary 
indicate E0f to be sent. 


uF 


(saveee’> WRTBLK 
: ; BW-SR.2 


Return to Callerese 
sl 
[7 


[oul 
—) 
{os} Write data: | 


< 


NR rE re re 


| 
Move *end-of-text* pice buffer 
| 


| 


| 
| 


| t 
| -STX and DLE-ETX | | DLE-stE and DLE ceTx | 
oF non trabnpdrcat: | af noe eauepatent: 
| STX and ETX | | | | STX and E£ | | | 
nn a regent 


eee et 





NOTES {| MODULE | LABEL | REF NOTES } BHODULE | LABEL REP 


| | 3 If pyeos ec ora aode, it is | | 





} 3 If transparent arjode, it is 
re uired to send: 
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IPW$SBW - WRIBLK Write Block 
IneuT PROCESS OUTPUT 


*} 
jeee >From Caller 
—,/ 





Tca 

| ° 
TcTT rn nnn pn > OT} If task to pe stopped eoe >{07 
{or} / 


lfozt Indicate suffer in use for I/O spanager 
u— 3 purposes. | 


A- Call I/O Monitor. 








a 


Waat for RJE Posting. 


—---->|03] If task to pe stopped [ess> 07 


FOP 0000 0000 00 00 00 00 F008 OF 08 OF 90 BH Os Be Hom 


----- >}05] If task to be stopped feoe >f07 


Vem: 


foe] Reset puffer fields a CBW bUP 
uJ 


t 
return to callerese] 


L 
LCBWEOBA 
LCsBa@DATL 
DCPOST3 








pes 





re spre era eee NS eS SO SE SS AO EE SG eS I I SE SS TS AS ITY GP SURNP AS 


| 

| 

| 

| fo7t Return to BWSTOP in mainline 
= 

| 


, 
e 
Ne 
atmo: enn enemas 












ROTES | SODULE | LABEL j REP { SODULE | LABEL 









| 
2 If the output buffer is ready to | $Ios 4% <A wait for RJB Posting from line SuFB 
weg gant pects the tye Aanitor to BaNager iS made. ; 
before e onitor 1s . 

| called. { { H Hi 6 after being dispatched, the free 

| t | space pointer as well as the 
| transaission counter are reset to 
! | zero. 
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CHART IB: IPwSS$IB - RJE,SNA INBOUND PROCESSOR 





MAINLINE 


IB-2.0 








t ' 


Ini? RCDB TERM 
1B-3.0 IB-12.0 Ib-4.0 


ANER DFC 


IB-10.0 | IB-6 .0 IB-16.0 





ANER | cance pane | 
IB- 10.0 ite | i1b-9.0 | 


aE eee —- | 
Ga | = | INDEV CHECK ANEK 
} I8-7.0 N I8-10.0 IB-19.0 re Is-10.0 
| 


[rupev | 
| reer 





GETRU GETLR i | i | 
IB-13- IB-174.0 i Ib- 11.0} IB-8.U | 
I ! 


DFC ANER CHECK STaT | | | 
| | | | -/ -/ 
1B-6.0 | 1B-10.0| | 18-16 .0| H 1p-15.0| ! : 


— 
t t | 
| SERS. | 
ANER [Panne ANER INDEV 
1B-10.0 | {B-7.0 1B-10.0 15~-19.0 


{INDEV | SEND SUSPEND CLEAR 
| | | || | 
i [ ne i, cascocnnsnnnneny SIG sss eam 





1B-18.0| 





Chart IB 2y 
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1B-1.2 








SIGHOFP START RESTART 


I85-11.1 IB-11.2 IB-11.3 IB-11.5 
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IPMSSIB - SAINLINE 
ImPuT PROCESS OUTPUT 


ol, 


see, Attached by IPWS$SSH 


MAINLINE 


include the main processing routines and 
PABECUe Shee to perforre the inbound 
Pp Se 


ee come meme: SO nee eee eee wees 


Inuit 
Initialize the inpound process. ra 
RCDB 

i) 
Call the receive/deblock routine. 13-12 





To VSE/POWER task selectionese 
=] 


NOTES { BODULE § LABEL | REP { MODULE | LABEL j| REF 


Bocive request units (RUS), 
deblock thea to logical records 
and pass thea to the logical 
reader (IPWSSLR} or to the command 
handler (CAND routine} - 
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IPWSSIB - INIT 
INPUT PROCESS ouTrur 


t 
a : | | 
eee >From MAINLINE 
44 
| | Init 
Initialize the SNA workarea and RPL and 
| | check the RECEIVE ANY RPL. | | TCE 
fort Initialize the reader class list in the --------<--~----------- = | 
o—! TCB. 
- P omamiatetes If a reader or writer is interrupted Pern er eee 
t 3 save ptr to SUCB device entry. — 


prerees 


5 Initialaze the SHA workarea. 


r-----3[03) If not a O-RU or a RDR interrupted 2 


RPLRINCD 
RPLLEN =| ~-~----------- “i 








aa 104 He error occurred on CHECK or RECEIVE 


WACB 


R1 | 
|RPLDATA | a------——~--—----~---5 [05] If it is a DPC command : 
i 
/——'.. 
<U eecccee af DFC 
f IB-6.0 


ooo 


fost Validate inbound SNA status: 
— 


s-—-. 
< eocacee > STAT 
/ | — 


To MAINLINEcee 

s 
VBei 
[rv . 


careers ee i Ee Ee PE ke ST Sy NP PS PE SS rire SA” SO | 


ee re ce a RE Se NA HE emer RE Hn ee Sn 


| 
| 





NOTES { SODULE } LABEL | REP it wOTES | SODULE | LABEL {| REF 
3 Any data associated with RECEIVE Data flow control command handler. 
ANY aust be taken out of VTA with 
RECEIVE SPECIFIC. Null RU®S were It must be a Hull RU. Valadate and 
maintain bracket data stream and 


| not kept, ther aust be analyzed 
| imaediately. RECEIVE ANY was not 


chain states. 


issued, when IB interrupted IB 


reade (LUIS=ON). | | 


ewan ere 
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«PWSSIB ~- TERM (Part 1 of 4) 














IspouT PROCESS OUFPOT 
et AAINSLINE 
TERS 
Terminate the inbound process. 
TCB 
TCBTT ~------~--------------5/03] If the task is not in *S* state : fooe’ fo3 } 
[ one 7 
| fo2} Call inbound error routine. 
/—— - 
‘ < eeccce > INER 
t IB-5 
siti ! ce 
ia | lence aclaetaeneniee —---3 403] If the card reader is not being 
as ee processed : 
i | oe ro e+ 
t----- If task is not at Job boundary or abort | 
: data streaa is not indicated % 
: - Wrate the £0) statement. OR DS 
ang 


—— 
t 
t 
' 
' 
' 
' 
{ 
t 


- indicate hold state. 


- Issue message 1¥V25I to the remote 
operator. 


cao naps sanemveten ean onrteen srmesmenmeamenss \/ erence aan ease 


fou] Set the data stream abort indicator. 


Indicate s£0F by wreating a dugay record 
wath zero length. 


oe Soe oe ae ee >Jo5| If tne logical interface is open : 
- Close the interface. 


ee re er a eS EE TEP CY eR 


ee eee we me ee ne ee ee ee ni Oe A NN RN IR 
— | 
a 
ee 
eee me 


NOTES 


{ SODULE § LABEL 





t REP } NOTES 





meen en enn 1 QRDP 
' 


oa 
bel 


WACB 






ewe ee ee eee ee > [YASS=KERO® 


A PS A SP SP SS AS SEN TE  C eS E-Pet> S GE-RY SE 












} SODULE | LABEL | KEF 





3 1V¥251 EOQJ ADDED POR jopname jobar } SPLR 4 SPLR 
5 $CLI 
{ | SRS 
[Sve Oe | 
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IPW$S$IB ~- TERM (Part 2 of 4} 
I8PUT — PROCESS OUTPUT 





fos} Reset the logical interface indicator. Sewer e ce ee ese en, 


07] L£ an error occurred during IB [eco” 
process {bReas) or an IB isier is t—,/ 
Patercup ed then branch : 


Reset the live bit in the ECB. jE eee enere nage er Heeenee 


00 bn 08 oe oe OF S008 cece 


et re ee ee ee eS 


Issue the ran RESETSE gacro to switch eee ene ee eee me 
to any m2 


| been aGeabtst RESETSR request has 


3, 
iS aceaas > CHECK 
‘ IB- 16.0 


SPS SSeS Sam ae See eS ~ A. rad there aS an error condition 
hen : 


- Issue the seseege WO7L to the 
central operato 


cB 


- Indicate kill session. ween > 


- Indicate termination type. 44000000 teense nnn e+ 


Lock the SNA control block. 


Reset CD indicator. mone ee ee ee —> 


Reset interrupt (SIGNAL) indicator. meen re nn re ren nen > 








} MODULE | LABEL | REP HOTES | SODULE | LABEL | REF 


1 
9 1¥7071 ERROR ON reguest RTHCD, PDB2 }|RESETSRE wto 0 
= Xx, xx SENS = dixs on lunase | f : | | ee | 


nc tr ere DR A erent 
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IPW$SSIB ~— TERM (Part 3 of 4) 
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InPot PROCESS . OUTPUT 
LUCB | 
Brennen ene me omen) } 11] If device Characteristics field is not 
1 already cleared then ;: | 
< eesece > CLEAR 
4 | 1IB-20. sal f 
LUCB | 
To ee If no reader and no writer is 
interrupted then branch : | 
ae 
ey ie 
v 
WACB LUCB 
Else ; eee 
meme mn nn err nnnenn= - Restore the device characteristics = -------- a ee ee ee ao 
- pointer for the interrupted 
- device. 
(IB interr- 
uptes for IB) 
LUCB { 
Seer emer enn teowe we frat} If the IB reader was not interrupted 
i then bran : 
eco. 16 
[ores fre J 


: 
B 
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Reset 


ointer to LUCB, which has the 
WACB d 


cupied. 





Reset pointer to sACB. 







ee ee ee ee ee oe 


Reset interrupted IB reader. 


[uurs="0*B } 
LUTI="0"B 


ee a ee een > 


Reset TCB address for interrupting 
console. 


If session is to be killed, or current 
task is in error then : 


- Indicate *S*-state for RDR task. 


- Activate IB reader task. 


The wrater (LST/PUN) was interrupted : 


Reset LST/PUN interrupted. 


Reset TCB address for RDR. 





Licensed Material - Property of IBM 


IPwS$IB - TERM (Part 3 of 4) 
NOTES | HODULE | LABEL 





14 Lf the device characteristics 

. field is already cleared (norsally 
it will be done when data streas 
is set in between data streaa 
state - EOC subroutine), the 
poster to it (LUPH) aust be zero. 
hen an error occured or the | 
Fae pe was set externally into 
STOP immediate state, this field 
is not cleared yet. 


13 To free the WACB, which got the 
console tasx via the SNA manager, 
the following ptrs aust be 
| cleared : 


A. SUWSL -Pointer to LUCS 
which was second LUCB 

B. LUW2 -Interrupting IB workspace 
address obtained froma SUCB 





NOTES |} MODULE { LABEL 


If am error occurs on the second 
anterrupt level, all 
will be stopped, but not the 
session. The end bracket will be 
sent by the OB-processor. 
i 


WYormal IB processor termination 
occurs. Only the SHA ranager 
(IPWSS$SN) must be activated to 
perform a scan through all LUCBS 
according to a SUCB. He has to 


look for further work. 
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IPWSSIB - TERM (Part 4 of 4) 
INPUT PROCESS OUTPUT 






17] If session is to be killed then : 


Sew meee one a pn ee—, 


- Indicate *S*-state for LST/PUN task. 


00 90 0 00 08 08 ees. 


| 


a a 
w Q 
eS 


- Activate LST/PUN task. 


[1a] No IB reader or writer (0B) was 
interrupted ;: 






LOCB 


Reset TCB address IB proc. mer ee ene ene ee oe 






Indicate 0B allowed at this session by oaoertueeaietnenainahetaetnenenetmeneate? a 
resetting 8B reject. 








Indicate select LUCB for SNA MANAGER. See Se See Sa ee. 
SHcsB 
Post SNA MANAGER work ECB. See ai i ee aioe aS ae mate me SNHEP=* 9° 
LUCB 
{Luss | ra7777-2119} Lf 0% process was rejected during IB 
I 3 rocess then set SUCB selectable for SHA SUCB 
Sones nr eer a = anager. et ota eo ah, fsupus=es* } 
[-0} Unlock the S#A control block. | 
| Detach the SKA IB processor task. 
{22} Return. 


} SODULE | LASEL { BEF 


| | ‘oa 
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IPWS$IB - INER (Part 1 of 5) 
InPuT PROCESS ourPutT 


[Es i TERS 


Check error conditions in the inbound 
process (S-state}. 





‘ 


INER 


Omen] eee oo ee een we ee eee ewe eee cen 












pnaneee wnae en a =e 101] If a RECEIVE is in progress : 
‘a cain aias'eo are aienieeiee ~y 
i oy [a 
Ge ee < =< Check 
eanmnc enna nna ans ‘ : IB-16 
3 A. If there is not an error ooo” foz } 
$ xondte on = oy 02 | 
| : Else: 
3 - Indicate kill session. 1 4 
: - Indicate abnoraal termination. i 
2 - Indicate VIAS error. ™ 
i----- B. If DFC, or last of chain, or only : ne 
chain fhen indicate end Ghain © 9 -----——-- ~  aaeteteed @asu=08 11 
pend ing. 3 —_—_ 
t~--——-————>  pWACS=xX* 208 
[o2} Queue the sessage 1¥241I for the resote 
| operator. 


















NOTES | MODULE | LABEL {| REP 


A A A RS nF 


2 W24I ttt TERSINATED REASON = xxxx | ] ‘a 


| 


1 SODULE | LABEL 


el 
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IPwSSIB - INER (Part z of 5) 
INPUT PROCESS OUTPUT : ee 


= | 


WARN fo teen ern -->}03[ If the message 1s for the central 
oa ee | operator as well : 








_—_——— - Issue the aessage 3t¥07I to the central 
ies operator. 


= | 
| Cone | 


| 
| 
! 
| 
- 


WacB 


---—-> 


Oot cee ne ee ce ne ese vee 


Some teen eens chain state, ({impediate termination 
q a required and OB is suspended) WACB 
—_ en = 


t----- If external stop condition then indicate --~------ oe omen 
-— 
break sense. 7 





If a VTAM error occured which eee > 
requested kill session, or between [foe] 


pee Oo cece ce: 





WASNT Ge see Indicate exception response. "Siegen: | 
: Indicate function management end. 200000 =---— 4 b= 
: Indicate not reached recovery node. ae ee nee 
i---— Hove sense bytes. ao-,  i-------------- 


Ce a ee 


Indicate (negative) response to be 
sent : 








eee! pe 
Hasnues > SEND 
co / 





IB-9 
RF 


- Indicate kill session. LUCB 


eee ewe eee ow me. 


- Indicate abnorgal termination. 


peed 


mene nn no, 
! ry 


eet 


eee 


~Indicate VTAM error : 


le If VTAS returned an error on SEND : core 
| 





eric 





WASH wenn ne anne? | 08] If external stop condition then reset Farinber aaa pera | 
sense. : 

Lucs i 

foo] 1£ eather: 3 
ne uw! a 
LUOL 
| - VTAS error occured which requested 
Ennead 
cB a kill session or 

WA 
- immediate termination is required and 

a OB is suspended, or 

WASN « . 

cic - the process is not in chain 


state, and if there is no more 


WATI 
data 


na | 


then skip purging of network: 





| 


ae ere en nn 
os 





NOTES | MODULE | LABEL | BEF t NOTES t{ SODULE { LABEL | REF 


ee) | | 





3 


1¥V07I ERROR ON *request® RINCD, 
PDB2=xx,xx SENSE=xxxx O8 *luname® 
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IPWS$Sib - INBR (Part 3 of 5} 














“INPUT PROCESS ourPoT 
If neither CANCEL, nor EOC received, nor } 
a_VPAM error occured then purge network 
of data: 
Ae. Issue the VTAS RECEIVE macro to 
RF purge any data in the netvork. { ee | 
[it Seesaw essere aan? Be If the RECEIVE request has not been | 
accepted then : 
- Indicate kill session. qr er ees 
- Indicate abnormal termination. Poe me ent een n= 
WACB 
- Indicate VTAS error. ot oe rere ery 
e re a pe cr =! 
co 
/ 
Cc. Else : 
f-——.. 
< eeccone > CHECK 
sf IB-16 
RF 
D. If there is any CHECK error LUCB 


ee 


WACB 





RPL 
RPLCNCEL 
RPLES 





4 
| 
| 
RPLCMD _ 






ween = + - = => 


NOTES 


11° #=If a CANCEL was received a PME 
Rust be sent 


{ BHODULE } LABEL 


condition then : 


- Indicate kill session. 
- Indicate abnormal termination. 


- Indicate VTAS error 


E. Else loop: [e="3 }10 | 


laine ian aeemninen teenie >a] If a CANCEL was received : 


A.j If end bracket is set then indicate 
between bracket . 


B. If change direction not indicated 
then ; 


ey, 


Else validate CD : 


- If OB suspended and 
no IB rdr suspended and 
in bracket state 
then set CD indicator . 


Blse CD error : 
indicate kill session. 
indicate termination type . 


t REF 








wa > 


im 
& 
nH 
wn 


eee ene eee > 








LUCB 


a oe 


LUBR=x*80° 


hz} 


of 





} SODULE {| LABEL REP 


| | 
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IPWSSIB - INER (Part 4 of 5) 





INPUT 
e 
| | 
| 
RP | | 
} | Se ee eae ene emia om mee ao cme, > 
| | 
LUCB 
LUIS Peta cs eee [13] 
LUOL ae eae aera eas 


ORIEN SISISISISI SSIS ECS | 


i) 
' 
' 
’ 
' 
i} 
4 
i] 
| 
| 
' 
{ 
‘ 


Ae ed 
t 

t 

t 

1 

{ 

1 

{ 

i 

' 

! 

{ 

t 

1 
usc 


a  Y 


44 


en an tae ee ee em > 





eee <POPSE- A ei  GCSAE egp SPLSE ES e S A A AA: S S  R C  SRE T N SS S SN P  A  SS ST  P A SSSS SN SES SNAO SOhD S—SR PS-ATS 
eee kd 


: 
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PROCESS 


{72} Send positive response: 


Licensed Material - Property or IBM 


OUTPUT 


Indicate positive response. 
Indicate function rmanagesent end. 
Indicate not reached recovery node. 


Indicate (positive) response to be sent. 


[a 1 
€ eeeeee > 


cee I 


SEND 





IB-9.0 


If VTAS returned an error on SEND then : 


- Indicate kill session. 
- Indicate abnormal termination. 


- Indicate VTAM error. 


If a VTAM error which requested a kill 
session, or (immediate termination is 
required and OB is suspended) or (IB and 
OB are suspended) then exit : 





Else send O-RU = 
WASN=0812 
RPLAREA=0 
RPLRLEN=0 
RPLPAHDR=0 
WACS=x*808 


-~ Indicate no data. 


Indicate zero length. 
Indicate no FAA. 
Indicate between chain state. 


Se reeee nen cea ceean> 





If not between data strearg state, 
Or no implicit PSH =: 
WACB 





| meant? WASS=x*108 
- Indicate data stream abort. ~-—---~-+——---- 1 -—---> eepoe eee 
- Indicate address of PMH. s ae 1 | ; 
i ~---—-> {[RPLAREA 


~- Indicate 
~ Indicate 


length of FAH. 
PAH to be sent. 


- Indicate receaver sends ADS FSH. 


re ye aad 
rere ee, 
ae y ence | 





RPLRLEW 
RPLPABDE=1 
PAHFLAG=80 
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IPW$$IB - INER (Part 5 of 5} 
INPUT 


ci ii 


SUCB 


eens 


SUSR 


ee ote i se gar -~--> 





s 
eee ee ewe we ee we} 


SUBC 


ee 





a fee ar ee ee ee en me -_> 





re ene | ee 














: 


PROCESS 


If between brackets, or (change 
direction is set and in bracket 
indicated) then exit: 


Else: 
- Indacate begin pracket. 
~ Indicate end pracket. 


If unconditional end bracket is not set 
then Indicate not begin bracket. 


If outbound is suspended for inbound 
then indicate not end bracket. 


Indicate response to be sent and 


send responce: 


fd 
< ee@cceoe D 


—/ 


SEND 





IB-9.0 
If VIAS returned an error then : 
- Indicate kill session. 


~- Indicate abnoragal termination . 
- Exit. 


If 08 not suspended then : 


- Indacate between brackets. 
- Indicate between data stream. 


Exit. 


OUTPOT 









eS ER a ET 








-----> 





BPLBB=0 | 


| 
ee en em ae ee oe eee amen 
bows 
ie 
Se ee ee me me > 
Lf 
my 





WACB 


| 
4 
| 
| 
' 
| 
| 
L 









mere ---—— > ASS=2 980" 


| 





to TERKece 
=] 


of 
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IPWS$IB - DFC (Part 1 of 2) 
INPUT 


LUCB 


LUBR | 


L 





RPLCNCEL 


I 


LOBR 





| 


WACB 


WAUB 
RPLEB 


il 


re ee 


RPLC#D 


fo 


44 
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PROCESS 


OUTPUT 







ee 
ece >From INIT, 
I 


| 


GETRU 


DFC 


Handle CANCEL and LUSTATUS data flow 
control reguests. 


Or ee ee an en nn oe ee ee ow ee ee ee 


B 


Clear the residual count. 





| 
4 


Vv: 


If bracket state or unconditional end 
bracket, and end bracket or change 
direction received =: 


RF 


- Indicate bracket state error. 


RP 


x*a009° 


~ If change direction received then 
andicateé bracket state error. 


~ Branch: 


If not a CANCEL request then branch 


Else: 
- Indicate end chain pending. 
- If not petween data stream state 


Indicate in data stream state. WASS—X°40® 


- Else if between bracket state then 
branch 


If unconditional end bracket, and end 
bracket not received : 


° 


- Indicate in bracket state. 


~ If change direction received 
indicate change direction. 


° 
: 


Else branch 


Else indicate end bracket state pending 
and branch: 


' 
en re re ae en re een emer eee \Y eer 


ae 
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IPwS$IB - DPC (Part 2 of 2) 
INPOT 








p feet 


PROCESS 


OUTPUT 





| RF 


———— 
[== 4 cH 


If no LUSTATUS request then indicate 
unsupported DFC reguest and branch: 


X*1008°8 


Bw 
‘ 


ET I SITE TT RG SEES ty SAGE I EO NTN TR RE I CO PI EMA EEA IIT SS NE TE I EE CSET SE CGI EE RTS ET CATT RE 


If no component available, or no 
rmanent error indicate data errore 
hen branch: 


| 
elm 


LUCB 








If end bracket received then indicate 





end bracket pending. Seen mewn a mmemm > ITBR-X&20* 
Slse, if change direction received | 
then indicate change direction. l <a ame -_-_—— 

| i----—-> [LuBC=1 
Indicate chain end pendange. 420 sree eenen= —4 WACB 
If an error condition : | i---——> [@ACS-1*20° | 


- Copy error return code. 


- Analyse error: 


/.. 
< eceeees > AWER 
7}. a 
Return. 


to Calling routineeee 
e 
| 


ee H 
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IPW$S$IB - PHHDR (Part 1 of 4) 
INPUT 


Licensed Material - Property of IBM 


PROCESS 





° 
e 
jet From CALLING ROUTINE 








4 If it is not the first PAH which 
is arrived by this procedure the 
branch is made. 


LUCI_indicates, that card inbound 
is allowed. It will be set during 
rg be according to the 
BIND-pararmeters. 
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{ MODULE | LABEL 


PSHDR 
Check of the function rmanagerent header. 


If task is in *S*-state then exit : 


If not between chain state then : 


- Indicate PMH error. 


- Branch: 


Else, copy the function rmanagerent 
header. 


If neither : 


PSH length is 6 characters nor 


Concatenation is supported nor 


Type 1 PAH nor 


Demand select is supported nor 


Flag byte is zero nor 


- Compression or compaction is supported 
nor 


oe record length is greater than 
e 
then =: 


~ Indicate PAH error 


- Branch: 


ay [16 } 


ROTES 


It is a BDS or BDS/EDS FSH, 
because RDR or CONSOLE has not 
been active. 


In case of console input, the TCB 
TCBTI) will 
to CON1. Por 


{ REF 









adeatification field 
be changed from RDR1 
amplicit function nanagement 






headers. (FAA) it will be done in 


subroutine STAT. 





ee re ee ee ee. 


woe eee eee ee we we oe ween 


ourPpuT 


RF 


x*1008° 


7 


w 
i 


} BODULE {| LABEL | HEP 
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IPWSSIB - FAHDR (Part 2 of 4) 
Input PROCESS OUTPUT 





WACB 


[PausEL | i 








fouf If it is {RDB input (FSH) and RDR input 
is_allovw (BEMD, and &8DR is in use 
SUCB)), or 1t is (CONSOLE input 
PSH) and {CONSOLE is in use (SUCB)) 
ence then branch : 


sUR1S ooo 


psoRis } 


20 00 OF Oo or 8 oy 92 Ot BD Oe 08 Be 


Reset console input indacator. 


' 
' 
4 
i] 
4 
i] 
4 
' 
' 
] 
t 
| 
t 
S| 


Reset reader input indicator. 


WACB 


PAHSBL fo terre nnn sme a > If it is RDR input then : 
| | = WACB 
‘ : WAIR="3°B 
- Indicate reader input. ne ee ee 
SUCB 


a eee ~ Initialize device characteristics ptr. ~-—---------——--------- 
a ~- Check input device characteristics: 
f——_—.. 
< eeecce > INDEV 
ep eae 


- Branch: 


WACB 


FSASEL errr er enn r ea => | 07} If it is console input then : 
WACB 


Indicate CONSOLE input. were nr ret en mee cere WAIC= 





i] 


*4°5 





Indicate CONSOLE fCB. ween ne oe 


Indicate device characteristics ptr. Sa ee me ee en em encom ee 


Check input device characteristics: 


f—. 
<" eeecceoe > INDEV 
f 


Else, indicate PAH error and exit. 
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Licensed Material - Property of IBM 


IPWSS5IB -— FMHDK (Part 3 of 4) 
InPpurT PROCESS ——____, 


WACB 
PAHDSS 
WASS 





If begin and end data stream (PMH), and 
between data streaa for current state 
(case 142} then =: 


! 


ACB 
a 


eee eee 


~ Indicate end data stream pending. wre een ee eee ccone se 





- Branch: 


coe Df 16 | 
r= % sf 


PPO Ce oe OF ve onan ae Oe Oe ee Og oe 20 08 5000 O89 


If begin data stream (PSH) and between 
gates Stream for current ate (case 3) 


- Indicate in data stream state. a 


- Branch: 


Se ey 
oe 
iv <] 


Else, indicate PAH error and branch: mre nr nn tee 


x*2008* 


If devices (RDR or CONSOLE) not already 
in use then branch 
e 
> 


] 


man etree | 
. { 
4 
i] 
t 
t 
i 
' 
t 
t 
t 
' 
00 Bt oe ce Bt oo ce on Oe Oe ee ones 


| 
| 
| 
J 


LUcB 


Tenet ce Ee 


Same session 
RP 
- Indicate PAH error. ; . ae reais | x*1008° 


DEVCHAR 
- Branch: 


PPRLUCB = [ w----~-------- 


i 


WACB 
FSADSS 


u 
WASS 
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Else, if end data stream (FSH), and in 
gata stream for current state (case 5) 
en : 


i 


Pree ee coos oe os 0005 90 Or O90 OF ae 00 OF OF o8m 


WACB 


- Indicate end data stream pending. Semen ete cece seme re > fete | 


~ Branch: 


a If abort data stream (PAH}, and in gata. 
streara for current state (case 6) th WAC 


- Indicate abort data stream. ee pesca 


- Branch: 


ot RT 





es 
: 
| 


fa 
al 


; 
7 


Licensed Material - Property of IBM 


IPWSSIB ~ FHHDR (Part 3 of 4) 
KOTES } KODULE | LABEL 4 REF KOTES ) KHODULE | LABEL | REF 


The case number identifies an 44 RS alvays points to the LUCB on 
entry in the listing decision which t B processor TCB_ is 
table. Case 2 is also verified by associated. RLUCB aust also 
subroutine INDEV (no second BDR int to th e 
allowed, that means it is not ; Q 
ossible to interrupt IB reader UCB @ SUCB device 





or IB reader). characteristics field. 


In this case LUPH also points to 
the appropriate gevice 
characteristics field (SUCB). 
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IPWS$IB - FAHDR (Part 4 of 4) 
INPUT 


00 00 ce tn ee cece com 





os 


. | 


FSHDSS 


WASS | 


warc | 


we ee oe we ee ee pee 


0000 00 cn ee oo es tom 


LOCB 


= | 


| 


WACB 


= 


WACB | 


& | 
WALI 
[| 


Se ee SS ES PCTS POSS SE A SEMESTER GP PR ERO = S>ESS-GETSE EESOP US R-CIEEESS -P EEn ED  SSMSEYCATEPEES PY ESERS RAPE ST GC EE ASG EAE BEADED ef SC Decne Ue ee a eS UN SEE we 


ee te ey re ee Se ty eee a 
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PROCESS 


Licensed Material - Property of IBM 


oOuTPUr 


RF 
x*1008*" 


If it as CONSOLE inpet then : | 


eee wee ee we we ewe eww oe 


- Indicate PSH error. 


- Branch: 


If saspend data strear (PER) and in 
data stream for current state, and IB 
reader active, and IB not interrupted 
(case 7) then : 


WACB 
~ Indicate suspend data strear. wana SoS SSS a> —- | 
- Branch: 


vee 2 Lie | 


If resume data stream (PSH), and between 

data stream for current state, and IB 

ay eben active, and IB interrupted (case 
en = 


- Indicate resume IB RDB requested. 


- Indicate in data stream state for 
suspended interrupted) IB reader. | 


Else, indicate PSH error. 


Update residual count and update current ---~-------—----------- 
buffer pointer. 


If the residual count is negative then : 
- Set residual count to zero. 


If there is an error condition then 
exit: 


If reader input and if the logical 
reader is not open, then =: 


- Open the logical interface. 





- Indicate that the logical interface 
has been opened. 


Exit. 


to Calling routine ka 
car 


- 


Licensed Material - Property of IBM 


IPW$$SIB - PAHDR (Part 4 of 4) 
NOTES 


3 It is not allowed to interrupt IB 
console. 


A check sust be made, if a second 
device (RDR or CONSOLE) tried to 
send data. i 

When this papooned the device vas 
already started and a BDS, EDS was 
sent. 










{ SODULE | LABEL f{ REP | NOTES { SODULB { LABEL | EEF j 


peck 









: : 
| 
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IPWSSIB - EOC (Part 1 of 3) 
INPUT 





LUBR 
Lusc 


- 
| 


WACB 


WASS 





Licensed Material - Property of IBM 


PROCESS OUTPUT 


oe ae ees an er eee eee eee emmene ree D> 


[oa 
! 102] 


(or 


000008 08 00 F8 or cere Otte se 88 Com 


| 
| 
| 
L 
y 
[z 
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s 
e 
[ets From calling routine (RCDB) 


BOC 


Beast chain, data stream, and bracket 
states and send a positive response. 











Initialize return code register 


Point register 1 to the RPL- 
Indicate positive response. 


Indicate Paz. 








Indicate response to be send: gue ie gegen 2 AoE $ RPLSRESP 


td 
J eccces > SEND 
a IB-09 


If there is an error condition, branch: 


Indicate between chain state. San nn ee nn ee ne 
Turn off BOP swatch. a------------ SF 
IP: 

no end bracket state pending, and 

no change direction, and 

no end data strear pending, and 

no abort data stream, 


then branch: 


eos > 14 
=) -/ 


If end data stream (EDS) is pending 
then: 


ee ae ae ee 


4. Indicate between data strean. 
2 


os, 
i cocene > CLEAR 
—/ 


IB-20 
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IPWSSIB - EOC (Part 2 of 3} 











PROCESS 








If not change direction indicated then: | 
Indicate between bracket state. 


Branch: 





Ineor _ OURPUT 
= Indicate abort data stream. aaseareataaheenbetentasnatetaeetemee | WACB { 
. iH 
es | ie ern 
| bam -—> WASS 
Indicate immediate stop. 0 Serene ee any TCB 
t-----> |TceTt 
saath a cc 4 no end bracket pending, and 
t 1.4 no change direction, or 
2------+----—--, 
fe cut outbound suspend for inbound, 
: then branch: | 
: eco [t8 } , 
3 ree) -/ LUCB 
: v 
i----—->[10] If outbound is suspend for inbound or 
| inbound suspended for inbound then: s —_—__ 
Indicate kill session. ‘ 2 
Indicate termination type. 
LocB tL} Tura off unconditional bracket - 
| t indicator. 
j 
| LUBC worn wane >[12} 


NOTES 


has to be 
aported, no queue record should be 
written. This is indicated with 
®*stop immediate® or *flush*® 
depending on the current condition 
of the task. 


oo ee eer rere 


nine 


} MODULE | LABEL 
7? %«If a data strean 


feoe > 14 
/ ood 


NOTES \ 





| REP SODULE | LABEL | REF 





wD If an BB is pending and a reader t 1 
or writer is interrupted the 
session aust be killed. The , | 





workstation sent an EB and 
therefore did not follow the 
SNA-rules. | | 


a 


eee rte Aner renee ein 
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PN eS TS VET Sa ERP SU PUPS ey RESP Sy PS Sg SPS SpA DAR SPR P= SNE PS Na eS 


IPWSSIB - HOC (Part 3 of 3) 


KE 
LUCE 


LUBR —_ i tenner een -= 


LUBC 


@ACB 


lars | 


RACB 
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w---------—-----——--9 f 14] If no error occured then: 


oes! end bracket, or 


Ssaeatetettetaaatened | change direction,or 


ee ae 


UI 


pannaa--n-—--—----- 3 [16] If an error occured then branch: 


im If data stream is in SUSPEND state: 


Ps ey ye a 


Licensed Material - Property of IBM 


PROCESS ourPUr 






[23] Indicate no begin bracket. 





Indicate end bracket. 







Indicate no change direction. 


Indicate no data. 






Indicate response to be sent: 






a i 
O cascee > SEND 
——/ 





Indicate between bracket state. wreeecnn staat 


Reset change direction indicator. s*s3ereeete een 


f25{ IF: 


> resurge data streagm (interrupted IB) 
reguested, 


then turn on BOP swatch, and: wee ew wn eee en eee 


 ienearees ae 
ieee > ANER 
f 1B-10 


coe >ft8 | 
Ee’ *y/ 


7 - 
< ubsaeahe SUSPEND 
IB-18 


fis} exit 


Return to Calling Routine (BCDB) ere 


yJe 
oo 


Licensed material - Property of IBM 


IPW$$IB - SEND (Part 1 of 1) 
INPUT PROCESS OUrPUT 





From calling routine (IWER, EOC) 


BS 








ee ce ee com 


SEND 
| Send responses or reguests to the 


logical unit. 
A (WARP) | SS eee Serene eee See for } Initialize return code reg ister. eateries 


3 | : | ---- [wane | 
Lenn | Point register 1 to the RPL. come orenesoce —S 


WACB 
[saci If a response is to be sent then: 
EPLSRESP ~--------------3 Indicate data length of 0. Semen meee me 


ralalisechahaiacamtoees _ 


Indicate no began bracket. eRe eae eae ee, 


—---—> 


Indicate no end bracket. pee ep 


q 





| “v7 
[o3] Indicate positive response requested. ren eet arta, 
Indicate function aannagment end. I etait 7 ara 
Indicate not reached recovery node. Reg 
Indicate data to be sent. een ene Si 
Indicate post equals reponse. I meeene ee oe 
[oa] Reset the lave bit in the ECB. ne ee 


Issue the VWIAH SBND macros 0 seereee= 


/—.. 
< eevscese > SEBD 
J 
a me If the SEND request has been accepted 
| then: 





——---—-> |TCBEB 


RF rc 
oo 





/—. 
< ereees' 7 CHECK 
1B-16 


Indicate request scheduled. RPLSCHED 


. : BEPLSRESP 
Indicate no response requiered. 


O7| Return. 





ee eter anne ear a Ig tne T-TREE CE NP NE CY SS ES SR TY ES Sn SN SE TE 


a 





NOTES | MODULE | LABEL | REF NOTES } MODULE | LABEL | REF 
3 Message indicated: ‘ 4 essage indicated: 


W24I ttt TERSIWATED REASON =xxxx 1¥07I BRROR OB request 
RTSCD, FDB2=xxxx Of lLunare 
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IPWSSIB - ANER (Part 1 of 2) 
INPUT 


fuorx | eran | If immediate stop indicated then return: 


Licensed 


PROCESS 





ci: 
coo. aed, rout ine 
uu / etre? GETR DFC, GETLR, EOC, 


ARER 


Initiate error processing for S$ 
Serge e EagR STO) 2 and errors indicated by 
VTAN (WASHN=0 
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Material - Property of ‘BM 


OUTPUT 


WaACB | 


| 
| 


ewer nen 
a 


| 4 
| _ : 
[soos ae : r:) 
*y : 
| pont i--> | PCaTT 
| A (WARP) | mec e nn ere nn ne fo2} Point register 1 to the RPL. po 
| | Indicate *S* states 420 ene: ae) 
WACB 
| | comet fost If VTAM dad not indicate an error: gACB 
WASN w------------- 5 Indicate error message index 
for reaote operator. 
Return. 
Indacate break sense. 
padseare error gessage index 
for local an remote operator. 
[Rr H pe ee ay O5{ If the ACB is closed then return: 
a | 
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IPWS$S$IB - ANER (Part 2 of 2) 
INPUT PROCESS OUTPUT 











BACB 
fro } ae —1---—-7 [06] If a POWER/VS logic error occured then: | | 
H : Porce a programa check by branching 
WaCB 3 to tae storage descriptor: H 
: I 
frptetucp | |------------- --i | 
oe | 
cies >[07} If maddle or beginning of chain then: | 
RPLSIDLE | | --------------~: 
—_—_— 3 Indicate chain state and branch: ete teeeteteteeee | 
. RPLFIRST a ctatetatanataiatatmmeeetate 3 
| $= == [wacs 
[eee “3 fos : | 
—/ aed : 
Indicate end-of-chain pending. es | 
IF exeption request then: | | 
Copy VTAM error sense. or mn ee ann > | TRASH 
| ena | WASH 
Indicate error sessage index. SS | 


Return. 











[3] 
e 
e 
‘\ 
+ 
~~ 
N 


v 
IF negative response received, or ieee 
VIAN storage shortage, then: | eal 
Indicate kill session. : er en er nnn ; LuSS 
Indicate immediate termination. wenn nnn > [LOTT 
[13] Return. | 
Return to Calling Routine a 
e 
pe 
*y/ 
SSN a aT TEE a aaa TET OES NSE IP NIT EO MGT SSR RETOLD, | 
NOTES {| HODULE {| LABEL | REP ! NOTES : { BODULE | LABEL { HEP |} 


9 Sessage indicated: 
WV24I ttt TERMINATED REASON =xxxx | 


| 


| ot 
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Iew$$I5 - CHND (Part 1 of 3) 


INPUT 


58 


Licensed 


PROCESS 


rh. 





eee >Prom calling routine 





P| 
| 





a oe 


1 

' 

' 

i] 

t 
Veo 


O2 9008 com 


| 


WAGD 





CaPTR 


oe 


VSE/POWER PLM Part 3 


CHND 


dandle terminal operator commands: 
(orgear START, RESTART, 
Srop, Gd, SETUP) 


Address SNA logical unit control block. 
Insert delamiter tor SCAN. 


Get start address of command in 
register 1. 


IF the card reader is beeing processed 
then: 


Point regaster 1 past the prefix 


@ake the command upper case characters. 


Locate tne start of the command code 
Via translate and test instruction 
and set the pointer. 


Locate the start of tne operands 
Via translate and test instruction 
ahd set the pointer. 


Clear return code register. 


[secceee > SIGHOP?P 
- IB-11.1 


OUTPUT 


R4 (LUCK) 
—————) 


=----------------—---> { 





mm 








Material - Property of IBM 


| 


a er SEE Ge TE I I NH ee SET ME RPA SS SN RT NE SN OR re ee I NN a SR EY SREY A 
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IPW$$IB ~ CMND (Part z of 3) 
INPUT PROCESS OUTPUT 





If command is START: 





|  exerepraes START 
| / TBF te! 
oreo fos} If command is STOP: 


aes <<) iy 


for} If command is PLUSH: 


| [scaceae > PLUSH 
hie 

| 

5 





IB-11.8 





[econese > RESTART 
u—,/ 


B= 94S 


Hee 


If comreand is GOs 


ETT TTS Oe 
u—/ 


as 7: wy 


tt 


ee If command is SETUP: 


| bolsters Be SETUP 
| IB- nes | =) a | 
> 


Init Pass the comgjand to the command 
\—~ processor (allow only one terminal 
Command at a time). 


fea LC-24 | —---~---~-- ---—----- 


R3 





Get the Lockword address in register 3. a ee s CT 


Lock the SNA control block. 


a A RLS ee NRE SS PS PS STE PP Ser rr STS 
| Vv 





f NOTES $ MODULE j| LABEL | REF I {| MODULE | LABEL | RBP 


: | | | | | 
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Licensed Material - Property of IBA 


IPWSSIB - CAND (Part 3 of 3) i 
InPurT PROCESS 


Reset the Live bit in the ECB. 1 ee aan a eee eee a | 
i 
Invoke the command processor. H 


[13] @ait for the command processor 
to finish. 


{1s} Unlock the SNA control block. 
fas} Indicate no error detected.  eaatnsteneientetestesimendemestemmnstmseeestaned 


If an error has been detected 


| thens 


iis get command address ae 


| in register 6, 
calculate message address, Eien aa aeiacs: HER 


calculate pen ence nuaber | 
and TO-reszoté-ID, 


and queue the sessage. 


{17} Brit. 


Beturn to Calling Routine eee 
pe 


| 
| 
| 
| 
| 
| 
i 
B 
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Licensed Material - Property of IBM 


IPwSSIB — SIGNOPP Command (Part 1 of 1) 
INPUT PROCESS OUTPUT 





SIGNOFF Command 





Lock the SNA control block via 
the IPWSRSR macro 
{02} 


Do for each LUCAS of the current chain 
af session is not already terminating: 


j 
| Luca 
> 1. Indicate normal termination. SR ee ee ee 


ee | 


LUCB 
! 
| 

=] ----------- Sut 2. Indicate kill session. ---------- —-- 

| Hy 


3. Indicate select for the SNA manager. --------- ——— 


Unlock the SHA control block chain via 
the IPWSRLR macro. 


Exit. 


Return to CANDece 
se 
| 





| SODULE | LABBL {| REF § HODULE | LABEL | REP 
i i SESE f | SESE 


i 
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Licensed Material - Property of [BH 


IPW$$IB - START Command (Part 1 of 2) 








INPUT PROCESS ourpuT 
START Command | 
RR tated | DVPTE 
mewn ne enn ne nee > Call PARA subroutine to check if —--—--> |SUDNP 
paraneter 1 is correct or not aad point Hi 
o the appropriate entry in the su 5 ere naman eee oetemme 


| eee 


eer Z- 
—/ 





IB-17.0 


Wi oh ce AES Si If an error has been detected 
then exit: 


ee If the delimiter is blank 
( no class specified) then: 


< 
Indicate default class. : anne nemeoerce Lt] 


If the delimiter as not a compa 
thens 


: WRPTR 
Indicate error gessage index, somone nme ay 


and exit: 


' | 
| 
| 
00 00 e000 20 00 9008 ON He 08 Oe oe i RY 
| 
vi 
B 


If the class grec st ied do. age fail 
within the range A through 2 then: 


on 
r 
' 
' 
' 
Vv 


Indicate | error message index, a--~------- + 


> 
ae a aeennnnnnnnnnnnnn— = 3 [06] If rore than 4 classes have been RP 
specified then: § 


{werre id Indicate error message index, o---------- ++ 
WRPTR and exit: | 
4 / 
Lock the SUCB chain. 


WOTES | MODULE {| LABEL | REF HOTES } BSODGLE | LABEL | REP 


che device Pointer (DyETR) Points Hessage indicated: 

e 

CB Te as pateulated "hy t thee 1¥22I INVALID COMMAND 

subroutine PARMS: . . 

» Sddnp Sessage indicated: 

where: 
deee device iLSEST) Feber) 1V220 INVALID COMMAND | 
Nees device numbe | 
Ste a between 1 5nd 3 


PUN; n 
@.g. SUL2P is first byte of LST2 
Shacacteristic fiela in SUCB. 
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Licensed Material - Property of IBM 


IPWS$IB - START Command (Part 2 of 2) 
IsPur PROCESS OUTPUT 





DEVCHAR 








[17] Brit. 


> 
wore wenn nnannnnnnn a3 [0a] If device already started then: a 
STATUSB ; ; a : 
Indicate error sessage index. aeo--- += - 3 
Branch. 
DVPTR r 
eee >/10 H 
oo ~/ 
v 
£ 
as 
ae ements Clear class indicators. ak con 
Indicate class specified. \ woe en ee “i 
Clear forrmid field. eee e pionaper es 
i-s52= 
Indicate device started. \ See evee yy 
Indicate output available. foo : 
Set ‘select for SHA SANAGER. woecmea—si--y ot 
{19} Unlock the SUCB chain. oe 
tei 
i 


Return to CHNDece 
=] 





WOTES ( SODULE | LABEL NOTES | BODULE | LABEL | KEP 


8 STATUSBYTE (STATUSB) based on 9 The classes and the indicators are 
DVPTR appropriate to SUdnS: set in the dewice characteristics 
area in the SUCB. This area is 
poanted to by DVPRT, OPCLASS is 
t accord iny to SUdnac. 


d..-device (Lst/Pun) 
Qheeedevice number 
Message indicated: 


1V23I COMMARD OUT OF SEQUENCE 
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IPWSSIB - STOP Command (part 14 of 2) 
reput PROCESS OUTPUT 


ES 
eee >From CAND 
“| 


STOP Command 





STS SII 


Hap DV PTR 
eee | ------~---—----—---->/ 01} Call PARS subroutine to check if cc 
parameter 1 is correct or not $ 
and to »point to othe appropriate Fy 
entry the suca ernment 
OPPTR 


wuss 
<(seveee"> PARR 
IB- 17.0 


If an error has been detected 
then exit: 


| 
i] 
H 
' 
| 
| 
| 
| 
{ 
Vewmeran 


J 
be) 
wee Srean | eucnewap treme aneiten: | emmeee enema eae ere 


If the deliziter is blank then: 
Indicate immediate stop. 
Branch. 


Al | 
: 
1 
| 
(g] 


Pree on cece seer cece se ceases 


-----> 


If not EQJ, RESTART or blank 
has been specified then: 


3 


Indicate error message index. 
Exit. 


Lock the SUCB chain. 


If device is not started, then: 
Indicate error message index. 


i 
' 
i 
t 
t 
t 
' 
' 
1 
' 
! 
‘ 
t 
' 
' 
' 
' 
Vv 


o 
is 
< 
Q 
J 
‘al 
w 
| ar ae EE SCE SUID SE SENT 


Branch. 


=_ 
(pen =] 


WRPTR 


















| REP 





NOTES { MODULE | LABEL | wOTES {| BHODULE | LABEL 

















4 Indicate sessage: 
W221 INVALID COMMAND. 


1 The device pointer (DYPTR) C pasate 5 [ast | 
to the appropriate cutry. 3 : 
sUCB. It Calculated by oe 6 Indicate ressage: 1 
Bobroutine| PARM: 
h sudadnP | 1¥23I COMMAED OUT OF SEQUENCE. 
where: 
dee- device (LSLST, P=PUN)} | | 6 STATUSBYTE (STATUSB) based on 
Neee AevVice number { DVPTR appropriate to SUdnS: 
kiwi 2 a betwesa 1 and 3 
@ege SUL2ZP is "eirst byte of peste | d.-edevice (Lst/Pun) 
Characteristic field in SU | Qh.-edevice nuaber } 
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IPWSSIB - STOP Command (part 1 of 2) 





Input PROCESS ourPpur : 
R4 | | DE VCHAK S 
{sd Sorter ere serene meena >[07} If no OB processor active then: ser Staruse= i 
| Indicate device available. Seco eee ewe end | | 
| Branch.e | _s | 
} DVPTR 
fore > 10 
Ar A 
Vv 
LUCB 


< 
——~-—-> {PCKTT=S18IR 


If the writer is active and not 
terminating then: 





cee teny 


———aee 
teas ee eom 











LULT 
TCB 
r> Indicate STOP code. eee AS 
restr =s_s«d{| =+---------- —_---5 l 
| Reset started indicator. woeee--- an m ™ LULT 
L 3 DE VCHAR 
fir | i--—---> [statusa = 
X 408 
LucB 
el ee wae ee hens 
LUGO 





. 2 ‘ DVPTE 
Post Os reactivation wait ECB. scheteaherieneeateteteneteenes 
TCB 


< 
| TCBROL=*1°B 


wtece vod 


PRTLOCB 


PEQUIess, and stop isamediate indicated | 


90 00 00 On OF 00 90 08 0990 08 08 BE oem 


> 10] Unlock the SUCB chain. 


! 


TCBTT=9S* | —---~----~---—== _ 


il 


oe 
ial 
a 
i 
cc] 


r 


Return to CANDee 
72 | 


+7 


F It S&TUP/GO or imtervention reguired in 


te 
S 
& 
8 


“ @6e 


{19} | LULT 
fi} exit. | | 
| | 


cots 


i NOTES | NODULE | LABEL j{ REF if NOTES } SODULE | LABEL | REF I 


The writer task is only act ive, | | {SBLR 








! 
when LULT not equal § i 
Only when immediate STOP is | 

j 


en 
a 


wo 


indicated, the OB-processor must 
be posted. Othervise the 
OB-processor goes immediately in 
Meng #ait state without any action 
aken. 







| 
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IPWS$3IB - FLUSH Command (Part 1 af 2) 
Inpur 


WAGD | 


Poow 


LUCB 
> 

LULT 

LuCR 


' 
i] 
' 
' 
' 
' 
a 





fA er 


[PrRtocs I 
ed 


| TCB 


> 
[rcarrs*s* | 


PYMIMI EC IRINISIEOS EI SI 


t 


pe re eat ener SE mena SPE ORI EO AE VS SHY aN NG Se ED rRNA SRS SSS 





NOTES 












1 The device pointer (DV¥PTR) points 
to the appropriate entry in the 
sucB. It is calculated by the 

| subroutine PARM: 

sSudnP 

where: . 
deee device (L=LST/P=PUN) 
Rese device number 
LST: n between 1 and 3 
PUNS n = 1 

o-95 SUL2P is first byte of LST2 

characteristic field in SUCB. 

3 


Valid command forms are e.g. 
F LST, HOLD 

_ Pp LStS ---> PF LST2,P will be 

initialised. 
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PROCESS 





pA a Reon eae eepcrn eRe ET 01] 





1 MODULE | LABEL {| REP NOTES } MODULE | LABEL | BEF 
t 4 Indicate sessage: 1 
W222i INVALID COMMAND. 
SHSR 


Licensed Material ~- Property of IBM 


OUT PUT 


PLUSH Cospand 





Call PARM subroutine to check if 
parameter 1 is correct or not 
and to point to the appropriate 
entry in the SsucB . 


L ceasue> 


ameeame? 





PARS 





IB-17.0 


If an error has been detected then 
exits 





v | 
If the delimiter as blank then: t WAGD < | 
Indicate PLUSH, seen een nnn -- 1 
Branch. | 
on 
eee 105 (vaere 
Aw A 
v 
If *"HOLD* has not been specified then: RP 
———-> W221 
Indicate error sessage index. ahahaha neteaneetnieenatne 
Bxit. 
wee >f09 t 
oy of 
v 
Lock the SUCB chain. : 
If session is not established 
or if the task 1s not active, 
or already terminating, 
or at op boundary, 7 
Or waiting on intervention required 
then: RP 
Indicate error sessage index. —--~-------——-------- 
Branch. 
ooo. fos } 
[r= of 
v 
t 








A writer is active, when a TCB is 
existing. That is also true, when 
the task is suspended. 






Indicate message: 
1V¥23I COMMAND OUT OP SEQUENCE. 


SR RE ST ST COO CEST 


| 
| 
| 


| 
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IPW$$S16 - PLUSH Command (Part 1 of 2) 
















INpoT PROCESS OUTPUT 
Rat 
jue ] -----------—- —“~ 
_ t—---->J07] If *STOP OW BOJ* or *PEND* alread 
{97 entered then: Y = < 
LOLT . < TCaTT="s* 
Indicate immediate stop. meow nro p eae J 
3 TCBTT=F jh 
sanee H Blse: 3 
| f } wren een ane - - oo f Indicate PLUSH code. =--------—----- 
LOLT 
L | Unlock the SUCB chain. | fir) 
| 
| Brit. 
Return to canpese] | | | 
| NOTES MODULE { LABEL | REF I | MODULE } LABEL ?¢ REP 


If the PROCESSOR is in a STOP or 
EOJ conditaon, the task must be 
"is pate *S* state to simulate a 

ush. 






8 anes 
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IPW$S1B - RESTART Coarand (Part 1 of 2) 
INPOT 


eer Seen enn nt i nc SS RS i Ee s y y e O 
| v 


Licensed Material - Property of IBM 


PROCESS 





BESTART Command 





Call PARM subroutane to check if 
Parameter 1 is correct or not 
and to point to the appropriate 
entry in the SUCB . : 


an an 
S cacdes > PARS 
/ IB-17.0 


If an error has been detected then 
exit: 


oy, 





Seem eee mee wee 


ourTrpoT 





| 
COHSARD Pi | 
Seats _-_—s If a *,#* or *,-* sign is found then: ie RERX=8| 2 | 
i-----> Indicate R&START information wo-+--------- 
| (depending on the sign}. { 
WRPRT pra st-2 SKIP S3QMe 0 ener meen em ener mama 2 
f | tees | 
| : Indicate RESTART inforrmjation eres, 2 | 
@RPRT*1 20 of tore at (from beginning of job). = : | 
z i-----> |WRPTR 
Validate page number: z | 
: COMMAND 
/——. 4 —7 j 
< seeceee > VARLPNR beeen > JRBRX= 4 i ' 
ceo [ en ee | 
/ IB-21.0 | { 
RP | 
| Ree teen ee erent a—, [os] it error detected then exit: 
sls H 
7 
in Lock the SUCB chain. | | 
re ee ! 
ee | [een ener | 
NOTES | MODULE } LABEL | REP tf HOTES { AODULE | LABEL { R&P } 
1 The device pointer (DVPTR) points 4 agg nhuaber sust be between 0 and 
to the appropriate entry an the 9999. 
sucB. It is calculated by the 
subroutine Fash: 6 SRSR 


where: 


d..- device (Lst/Pun) 
device number 
between 1 and 3 


PUN: n = 1 
e-g- SUL2P is first byte of LST2 
characteristic field in sucs. 


Dees 
ST: a 
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| 
| 
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Licensed Material - Property of IBM 


IPWS$IB - RESTART Command (Part 1 of 2) 
INPpvuT PROCESS OUTPUT 


soca 


fprrtucs l ooo 
——___—__-—__I3 


§ 
LUCB | 


LOLT  -—— sO. errr een nnn nn nns 


oman 


pee es ccvsees 


eaere 07) If task is not active, or 





ce AAO PEE PLETE REL CT SS ED CNT A 















| 
| [rcarr=*s® } wore ern moan | : 
| som) already terminating,or 
| eal task is at job boundary,or 
{ [TCBIB | eore- | | 
| | cra? (RESTART is in progress and not 1 
t : on intervention required then: 
| TCBRS ss [ Jenne —: RP | 
| L | : Indicate error aessage index. wnenne +--+ ++ [av23i ! 
2 ' Branch. \ 
| | 
a eae, 5 : 
| LUCB 3 | 
[Lucr } ----------- -— 
a | — TCB 
foce Sy 0 | H < | 
_ at Ty 
COMMAND ) a gag aE } G | | 
aes Dia st. 3S ors es) ac 2 } 08 | fiove comaand information into Be = { 
| 
: fLunr | 
LUCB r-----2 | 09] If restart is on intervention 
3 reguired then: 
[Lace 1 Saleem a LUCB ¥ 
| | { { Reset request for RESTART command 0 www m een en nme nee > [LOCR=*"0"s 
| on intervention required. | ee 
| Post OB reactivate wait ECB. ebehenatetedaatneneatetetestates _! 
| Unlock the SUCB chain. : PTRLUCB 
; : TCH 
fiat Bxit. $ 
b-—--—> [roaRo=*1"B] 
Return to CHNDece ee | 
e 
pe 
| : 
f NOTES | SODULE | LABEL | REF t { MODULE | LABEL {| REP 
{ 7 Indicate sessage: t | as 
1V23I COMMAND OUT OF SEQUENCE. | | 
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IP#S$IB ~- GO Command 
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INPUT PROCESS OUTPUT 


Luca 


LUGO w----------—---—---— 


PTRLUCB 











GO Comsaanda 





and point to the. a ropriate 3 
entry an the SUCB ni . wee mn mere mend 


/\\———te 
< eecececee > PARS 
reo, 





If delasiter is not a blank then: 


Indicate error sessage. Sccelocessasccoeees 


If an error has been detected then 
exits 


Lock the SUCB chain. 


Call PARA Faproat ine to check if | mame d {supue } : 
parameter 17 is rrect 4 


If GO comaand ra not reguired for 


thas task then : 
Indicate error message index. wenee en oo) 
Branch. 


[p=*’ for? LUCB 


< 
—----> |LGG0=*0" 
Reset GO command indicator. meee w ee ons coed : 


Post OB reactivate wait &CB. emer eee oany PTRLUCB 


Unlock the SUCB chain. TCh 


< 
TCBROL=* 195 
Exit. 


Return to CHNDeece 
e 
ail 





oo corey 


Pree coeves 









NOTES 


1 The devace pointer (oyerR) Poaats 
to the aperopr fate eagty 42 the 

SUCB. It is calcu ated by the 

CIpEcutins SRee: 











where: 
G..- device (L=LST, P=PUN) 
Reese Gevice nurgber 
ete . betveen 1 ana 3 


fs: e q 
e.g- SULBPS is “eirst byte of LST2 
Characteristic field in SUCBS. 





70 VSE/POWER PLM Part 3 


{ NODULE | LABEL 




















NOTES 
2 Indicate nessage: 
W22K INVALID COMMAND. 


| BEP | MODULE | LABEL { REF 

















5 Indicate message: 
1¥23I COMBAND OUT OF SEQUENCE. 
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IPW$SIB - SETUP Command (Part 1 of 2) 
INPOT PROCESS OUTPUT 








| SETUP Command 


wuste Seswes oust S. >for} If no LST has been specified then: i 
Indicate error aessage index, 420000 teewenten naan oS 
Exit. 


and point to se appropriate 


eames: | = 
| 


eeccee > PARS 
/ IB-17.0 


wre renee se ee reece n om If an error has been detected then 
branch: 


WAGD 
WAGD 
> 
[ ac smamasmaue 4) Call PARA subroutine to check if 
| | parameter 1? is correct 
i 
RF 


If delimiter is blank 
(no pages specified) then: 


Indicate default pages. eed, 








00 oo ce on cemy 


‘] 
' 
{ 
] 
’ 
i] 
' 
' 
r 
i] t 
1 ' 
' ' 
1 ' 
' 
vo Vv 
°o 
yr 
e 
® 
e 
Not 
Vv 
ta 
<< = 
XN 


If delimiter is not a comma then: 


Indicate error aessage index. mote n ane ny 


WRPTR Exite : 
re 













NOTES 
1 Indicate message: 
1¥2zI INVALID COMMAND. 

2 The device pointer od dead points 
to the appro pesate Pie ae the 
sucB. It is calcul ted by the 
subroutine PAR: 

SUdnP 


wheres 





{ MODULE | LABEL | REF NOTES 4 SODOLE { LABEL {| REP 
5 Indicate sessage: 


1W22X INVALID COBHAND. 





deee device (LeLst, P=PUN} 

Neee device numbe 

bea: 2 n petrren 1 Bnd 3 
e.g. SUL2P is “First byte of LST2 
Characteristic field in sucaB. 
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IPwSSIB ~ SETUP Command (Part 2 of 2) 
IuputT PROCESS OUTPUT 








Indicate setup command ARES. COM#HA ND 
temporary Command fields 0000 mem eennen= aan 
maeow-> JRERX="16°X 
Validate page nusber: 
! Lot 
coors VARLPAR 
| IB-21.0 


[RF ] me ren mn en enn > [oa] If an error has been detected then 
coe. 13 
ena 


v 
Lock SUCB chain. 


em rr en ee ce NES RR I EN SSE SEES OS EEE MRT 
Fi | 


a SE te = gS ee =e GASSES SPAN rs SS chen emery SEES 


Meal 


ute 
Loco cata tatiatenaeeeeteriamtata | caenmnened If SETUP command is not requested 

t 3 for this task then: 

| Fs Indicate error raessage andex. a a W231 
DEVCHAR z Branch. 

t : TCB 
PTRLUCB of woe _ < 

ae TCHRS 
/ =,’ : 


PTRLUCS 


| a 
| 


—<- {13} Sove SETUP information into TCB. rn 
f l LUL? 


TCB 


Return to eaters 
@ 
= b= —-------> | PCBROL=*1°B 
¥ 


| | 


COMSAND = =— fl sewer eee n- at Reset SETUP indicator. we were ee mers, 
| : LUCB “ 
Post OB reactivation wait PCB. momen oes, i-----> LUGO="90°5 
fiz] Unlock the SUCB chain. z 
[13] exat. 3 PTRLUCH 





NOTES } MODULE j LABSL {| REP 4 SODULE | LABEL {| KEF 
9 SRSR y SBLE 


10 Indicate message: 
1V¥23E COMMAND OUT OF SEQUENCE. 
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IPWS$IB - ECDB (Pact 1 of 2) 
INPUT PROCESS 






Calling routine (SAINLIBE) 






RCDB 
Receive/Deblock Routine 









This routine is 1 ed through as 
long as no BOF or STOP condition occurs. 


eee wn oe we eee oe ee eee orn eee owe eee ewe we 


If the residual count is zero and no 
end of Chain is pending then 
obtain a request unit: 


i——.. 
< eevese > GETEU 
/ 18-13.0 


If the task is in *S* state then 
exit: 





2 10 
free, -/ 
v 


If the residual count is zero then 
branch: 


fore» 09 
/\ teh 


Get next logical record: 


/j-.. 
< ececceee > GETLE 
ia IB-14.0 


If the task is in *S* state then 
branch: 


ecoe df07 Tf 
[-+/ A 


If console input or command to be 
processed then: 


| 

4 
[3] 

on 


? 
. 
: 
3 
: 
° 
: 
Ps 
3 
: 
3 
PS 
3 
: 
3 
: 
3 
. 
$ 


_—/ 


nee 
ZL acccee > CARD 


Loop back: 


a 


ary at 
' 1 
1 | 
1 | 
4 
1 | 
i | 





OUTPUT 
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IPWSS$IB ~ START (Part 2 of 2) 
InPurT 


rcerr 


PIRI S IRIEL | 


' 
{ 
' 
t 
4 
' 
1 
‘ 
' 
' 
' 
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PROCESS 
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OUTPUT 
RO 
Issue a put-logical-record macro memes ee | 
with a record length of zero to 


ew meee ewe oe mm 


close the logical interface. 


Preveves con 
’ 

' 

' 

\ 
Veraraa 


If end of chain is pending and the task 
is not in *S® state thent 


in. See Oe 


Exit. 


Return to Calling Rout ineeee 
pe 


1 REP § SODULE {| LABEL | REF 





| je 


| aa 
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IPWS$IB - GETRU (Part 1 of 3) 
Input PROCESS OUTPUT 





Be 
eo 
ese SIncluded by RCDB, Chart IBtz2 


GETRU 
Get the next request unit (RU). 


ow wee oe ee eee we — a eee ee ae ee 


a, 
Initialise return code register. 900000 =-----=------ _ 
\ waACB 
fa (waRP) fe eae ieee omer Set register 1 to the RPL. =----—--------—, | 
| i-----> |WARP i 
WACB t an 
RPLACTIV ane nnnnn nnn nnn mma df 02] If a RECBIVE is 1n progress then: | 


| RF 
-----> | I 
Issue the VTAM RECELVE macro. -~-------——-—f 


ee re en ee te nn >[03} If there is an error condition then: 


Ae 


/c—-. 
<i eoccee > AWER 
/ | 1B-10.0| 


t 
| Be Branche 
: / / 
Wait on VIAS to corplete: 
Be rresey e 
wocese > CHECK 
| —/ | ele 


A Me TE SUI GE GT EE RIES eg Ga TY AA I ST I SE SE PP Ba rT 


eG ee LET REY ee ON TSE SS ES ET ED PSY PS NE A fe ST PSO SNE yp We SPUY SSS gRED SESSA GUNES SO 
x 





Chart I3 q> 
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IPWSSIB - GETRU (Part 2 of 3) 


INPUT PROCESS OUTPUT 

WACB 

i => Update area pointer. 

| WABP | porge ea = =a jee 

| wabt wet a tran, > Set buffer in process pointer for 
———-—— | |} 1 deblock. 

WABP ‘ Stoo Se=sS5 =o | 

RPLAREA an: ore Set current buffer pointer for deblock. 

| : | 
i) H Dae ee eee > Set buffer pointer for next RECEIVE. 
RP | ——t i If there was a previous error then 
7 branch: 


ESP ae ae 


| 
4 
‘ 


aememan carmen \/emeenn iene ESSE negra remmmencee emer: \y/ 
e 


If the just arrived RU contains 
control data only, then: 


A. Call: 


ts 
eeccee > DPC 
° IB-6.0 
[- .- 


B. Branch. 


02 00 0008 CO be OH 00 08 OF Fees Oo Oe oF Oe Oe eras et oN Oe Oe 


WACB poorer Update residual count. 
RPLDATA ee Validate inbound status: 
RPLRLEN =] -------~ a 


———— | 1! /——- 
RPLRLEN 1 ween ene —, < eereet ie 

RPLBUFL ces Oe toe — 

Ges H ce 


\—---——>]/20} If the RU length is not correct then: 


A. Indicate sense bytes. 
B. Analyse the error: 
— | 


Y ateca’ Ss ANER 
of In-10.0 


------>f11] 1f the incoming data are in ASCII then: 


oo 
PEO OO C0 oe Fh Ge conn cree ot ee ones seed 





ES eS ES ECT a ES HRaSONy ASG SY ES SR erg Eee Canepa SOF GA ch ara TUSSI SA 


Translate the RU from ASCII to EBCDIC. 





. 


76 VSE/2OWER PLM Part 3 


Licensed Material - Property of Isa 


IPWS$$IB - GETRU (Part 3 of 3) 
INPUT 


RF 





9000 oe sees eees we 


PROCESS OUTPUT 


1 
' 
' 
1 
{ 
Vv 
~ 
N 


If tne the task is in *S® state,or 
if end of chain is pending, then 





exit: 
foeo "> 15 
Ji -/ 
v 
RP 
Issue the VTA RECEIVE macro. i era ee ene ert ee {aEceive I 
et 
If the RECEIVE request has not been 
accepted, then: 
f—- .. 
< eescece D> ANER 
f IB~10.0 
Exit. 


Return to Calling meaiiee=:) 
e 


sgt 


SR Se OE CS ET TE TS LT LS I A TR NS I 


Chart Ib VI 
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IPW$$IB - GETLR (Part 1 of 4) 
INPUT PROCESS OUTPUT 


| | EE 
soe" Included by RCDB, Chart IB-12 
! GETLR 





Get the next logical record. 


ewe ewe eee ees wee eee omen ee 


a a KO 


| i—---- Initialise byte counter. a a a a Ta! 


R2 

wennnn nnn == fo2] Initialise delimiter pointer. pen aR [fo] 
Ty Indicate length of data to be scanned. | Heer eer ewe ena ~ | I 

z i-——-—> | } 

| on imme ¢ Indicate start address of data to be t Ceol 
: scanned. mre serena | a4 


Scan the data for a delimiter. 


oem 


mee mewn ae eee nd | 


| Indicate data length, tee menene oe | L 





ee ae cee mem eaeeen 


5 


Rei 
<--> If no record delimiter was found, then 
| eee [03] If nor , 


| 
anes If any data was found then: 


flove the data to the logical workarea. ween mann innne-, 


Point buffer pointer after the 
delinziter. eemceeeemne me 


Branch. 


ooo > 02 
fe) ea 


ee eee 
—— 


re eae omen nn n-> If a transparen deliniter was found 
then branch: sa 


Update the byte counter. 0000000 tree wt 
Update the residual counte 0000 terre Renee | 
R2 
[eee [10 I 





NOTES | BODULE | LASEL } REF | SODULE | LABEL | REP 
2 The code from 2 to 16 is looped | | | 
an | | | 


until a deljmiter is found, o 
80 byte Logical record. 7 
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IPWSSIB - GETLR (Part 2 of 4) 
IupPor PROCESS OUTPUT 





r 
Indicate number of bytes to be moved. = -=--------=-- --5 





Bove non-transparent data to the loical | gE ta> WALR 
workarea. oer eee eae 


Update byte counter. 


Point buffer pointer after record. 


Update residual count. 
aa ee 


If the card reader ratte s s processed, 
and the byte counter is not zero, then: 


adicate data error (buffer end is 
tovathi*aaiiastess. & mH 
Else: 

Loop back. 


Set delimiter pointer to indicate 
that the scan is to be stopped. 





On ET A SE eC i GS NE 
po @ 
= » ° 
» a 
a o 
wm 
| ween 
i] 
' 
§ 
i] 
{ 
{ 
| 
Le. O86 oe 68 oe o9: 
' 
4 


{ }  narhatieetatetenashateetemtaimeatnetetaa fro} If any data was_ found before 
—— 


transparency delimiter then: 


Bove non-transparent data to the 
logical workarea. 


Update byte counter. 
Update residual count. 


Point buffer pointer after data. 





Loop back. 
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IwPur 
couNT 
pt -—__| 
WACB z 
WARC b eRraPe panne ne, 
CouNT 
a 
x | 
J eee eee 3 
| or 
| Seereioe oe a ane ens 
I 
_WACB | a 
een reane Lelg | 
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PROCESS 





[13] If invalid count then: 
Indicate data error. 


Set the delimiter pointer to indicate 
that the scan is to be stopped. 


Loop back. 


Indicate number of bytes to be moved. 


IP gore than gzore than 0 bytes then: 


Move transparent data to the logical 
workarea. 


Update byte counter. 


Aa & & 


IF transparent record spanning then: 


Point buffer pointer after the data. Serene enn 
Set transparency delimiter for the | 
next record. —-------—-—---——---> 
Indicate new count. aaa rececas | | coust 
l as) a a 
Update residual count. seer n ener easy 
| : WACB 
Set delimiter pointer to indicate that : 
the scan is to be stopped) 00000000000 teen —~ 2 
: fies 
Loop back. 3 
eee 5102 : 
Ji-S : { 
v be 
fie] Update residual count. EER awe ene rs ? 
i-—---— 
Point buffer pointer after the data. ea caer | 
417] If end of the buffer has been reached 
and the record is not 80 bytes then: 
Set delimiter pointer to indicate 
that the scan is to pe stopped. ann nn nn nn f 4 } 
If reader input then: | RP 
Pe ona ¢ [x*1007° I 
Indicate data error, 2 eee ene e ne — 


ouTPur 


ere a ae eee ees ee eee ee 


on epee eee ccm 


a etentemtmmnetemaateteneteetentonten® ] 








| | | 


SOTES 


uatil j 
80 byte logical record. 


a delimiter is found, or an 


{ MODULE [| LABEL 


{ REP 


$ MODULE | LABEL | 





16 The code froma 2 to 16 is looped | 
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7 


Update the residual count. Pie rae aeaasaiioae, A oor oomeeeress 


Return to RCDBece 
e 
ple l 


oy/ 


Input PROCESS OUTPUT 
RF 
1 i } See Rese ee eee Sen >| 18 If data error has been detected then @ACe 
| I | branch: 
ooo [22 i 
/ *// | | 
WARL 
Set logical record length. Sees See ee ere een ee 
io 2 ee ee 
i----- If the deblocked record is WARL 
‘ not 80 bytes long then: § 
rs 
aS eSSasss= a, 3 
3 Pad the remainin art of FY 
: the record with Bi nks. en nnn 
o-+----------— p----- If the delimiter indicates transparency, 
$ | and the residual count is not zeto, 
: then: 
2 Scan for a redundant delisiter. | 
eee 
| operate 2 If a delimiter was found then: | | 
: Point buffer pointer after the | | 
, 3 delisiter. a a a 
| w----------—-- 5 { i--—-—>} [ wacr 





eesserrssers-=-s-- === 7 Copy error code. errr ern eee wASR | 
[a 
Heaedes > ANER 
= IB-10-0 
Return. 

Return to RCDBece 

e 
| 
ayo 
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IPWSSIB - STAT 
Input 


(Part 14 of 4) 






[ PIPE ee 


-----> 
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PROCESS 


calling routine 


STAT 
Validate inbound status. 


Point register 1 to the RPL. 


Initialize return code register. 
Save data set state temporarily. 
If . 

no begin bracket and 


no end bracket and 
no change direction, then branch: 


04{ If no begin bracket then branch: 
a 


IF not betveen bracket state then: 
Indicate bracket error. 
Indicate in bracket state. 


Branch. 


fos] Indicate in bracket state. 
a 


ee ee te cr ee LN me Me 






OUTPUT 










WACB 
< 
i 
| eee a | 
a1 


oe nn a ew ee ee 


: 


wanna nanan nnn, LUCB 
?-——— fespenarso” | 
: — 
¥ fos : 
| “y : 


Sa deaamehceadlanniehaiietaindineiadabentneniinemnemcindtoms aeaaaetehatenhamepaneaaneeastaamdaimnanimimenenmammenimsaemaetmmnedennatannameenmnemenmnant 


| 
| 
| 
| 
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Inport PROCESS OUTPUT 
If begin bracket and end bracket then: 
Indacate unconditional end bracket. Serre ener em ere ae | ® paeeee | *B 






—~--->|08| IF no end bracket then branch: 


0000 00 vem 


| 
| 
L 


ey, 


IF in bracket state then: 


at 


E 


CB 


-—-----— -——-----—-—>  (LUBR=x*20" 


——————— NY ree 


Indicate end bracket pending. 


L., eer ee sem 


Else: 


ik 


Indicate bracket error. een ee er en eee a> x*2003® 


ema, >[r0] IF no change direction reguired 
——s then brance: a 


in pracket state and 
if last of chain or 
only chain then: 


t 

' 

1 

\ 
Vewwene 
et 
Hh 


LUCB 


ae ee 


Branch. 
i 
| 


a A ST CO EE RE 


Indicate change direction. 


| 
; 
| 
IL. 

Ee, . 
| 
| 
| 


S cseaieninadl 


RP 
[r2] Indicate change direction error. _—_- oo OO 
Branch. 
feos of tu l 
fi - v 


= | > earaarcrieaeieameomatans’ 4 AL) | If betveen bracket state then: 
Indicate bracket error. ects sc aaa aa aa eine le 


@ 
ia) 


{ %*2003° I 


Cit Wo 


[ 
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IPWSSIB -— GETLR (Part 3 of 4) 
INPUT PROCESS OUTPUT 





wann-a-----——----—--9 14] If there is an error condition then 
| branch: 


eee > 18 
feean 


<3] 


WACB 


ene | o-------+------------- $175] If an PMH was sent, call: 
f---—*.. 
< ere PMHDR 
; ° 1B-7.0 


-aanianacmeamzmimay? id | If between data stream state then 
branch: 


Indicate end data stream pending. 
Indicate no reader input. 
Indicate console input. 


Set device characteristics pointer. 





Call: 


s——. 
< helsing INDEV 
IB-19.0 


If middie of chain or ___. 
beginning of chain is indicated 
then: 

Indicate in chain state. 
Branch. 





[19] Indicate end of chain pending. 





BOTES { MODULE {| LABEL | REF WOTES | MODULE | LABEL { EF 


No PSH was sent. Default PAH with 1 The chain state sast also be | 
EDS, BDS, Console has to be taken. updated in error case (RF not 


For’ further action see decision egual zero}. Phe processor has to 
table chart IB7 in listing. khoy whether he has to go in purge | 


te or not {subroutine IER ' 
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IPWS$IB - GETLR (Part 4 of 4) 
INPOT PROCESS 


ouTeuTr 






Copy error return code. 


[Rss] | -——-3 estore data stream state. 


Call: 


/f—_. 
<q eeeceeo > AREER 
—r/ 





IB-10.0 


Return to Calling Rout ineeee 
=] 


———: 
SL EEE ES SS SE 
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IPWSSIB - STAT (Part 4 of 1) ‘ 
Input PROCESS OUTPUT 





eee >From calling routine (TERS IER, 
ese, GETRUS . 


| CHBCK 
Wait on VPAM completion and 
issue VTAN CHECK. 
Wait for VIAH to coaplete its 
function. 
Issue the VIAN CHECK macro to check the 
coapletion status. 
Return to Calling. Rout ineeee 
=3| 
| ay 
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IPW$SIB ~ PARM (Part 1 of 1) 
IaPuT 





*PUNT® 


sucB 
sUdnP =---------- 
OPPTR+4 


PROCESS 


Froa 


0000 OF 08 OF oe nee oF Oe At Oe Com 


calling routine. 


PARE 


PARA checks the first operand 

of the tergsinal operator command, 
indicates the default value ae 
scans the SUCB device caracter ist ics 
list for the apprope iate entry and 
sets a pointer to it. 


orem we ww oom own — 








If the Ist rand gust be 
initialized bith aefault values then: 


Initialise default values. 


If the device is not found 
in the SUCB then: 


Calculate message index. 


Exit. 


Set device pointer (DV¥PTR) 
to the appropriate entry. 


Set the work pointer to the 
deliniter. 


Brit. 


OUTPUT 


Chart I3 


















87 


IP#$$IB - PARM 
INPUT 


(Part 4 of 2) 


[oa] 


an ee CR SE eT SAE Le A SA CS AS RT SD SS 


te EST RET GPO OPES EASYEDIT I 


_ 
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SUSPEND 


SUSPEND is only entered, when the data 
Strear is in SUSPEND state (a FSH1 vas 
Ree ived by IB with SDS for RDR 
in ted). SUSPEND posts the SNA 
BANAGER, indicates IB interrupted and 
2 far? will be issued. The RDR 
waits until the wait ECB will be posted 
the interrupting console. Then a 
retorn vill be sade to RCDB via EOC 
routine. 


a sti tc te 








Le A ALA ae SL AN NN 


Lock SUCB chain. 


Reset live bit. 


Indicate IB RDR su aded for 
IB console. 25 


Indicate for SNA SANAGER that 
a RDR has to be started. 


Indicate for SNA MANAGER that . 
a 2nd IB proc. task on same session 
has to be attached. 


Set select indicator for 
S¥A SANAGER. 


Post SHA MANAGER work ECB. 


REF 


ne 


WOTES 





ee on 


eee eon 


| 
i 
H 
1 
i 
J 


of IBn 


OUTPUT 





i 


PCBROL=*0*°S 


& 
8 


| 

' 

1 

t 

' 

' 

i] 

' 

4 

i. “ 
\ | 


eae 
re 


\ 
J 


" eee 
' 
T Se 





fF 00 90 00 00 0 F020 80 on OF Ot Oe Fe Oe oF Oe Be OF 


{| SODULE | LABEL { REF 


| | | 
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IPW$SIB - PARS 


IsPUT PROCESS 





Unlock the SUCB chain. 
Wait for an ECB to be posted. 


>fost If task is in *S* state 
i (iamediate stop state), then: 


Reset IB RDR interrupted 
ind icator. 


Indicate immediate 
termination required. 


Bxit. 


Return to Calling Rout ineses| 
e 
pet 








MODULE { LABEL j REF HOTES 
Normally LUIS vill be reset by the 


Sirs 


interrupt ing 1B console before 
detach in Rh a shutdown period 
terrginating one session by SHA 


it’ can happen, that the 
SWA BHAHAGER (before the 
control} pos IB console got 


control osts the interrupted IB 
when the interrupting coasote had 





reader. T Ren LUIS is not reset. 
an error, rocessor w 


t 
terainate ot TB flows. — means 
the interrupted reader has t 
detach itse aiestor wl after it 
was sted (indicator WATI an 
end bracket was sent alrea Y 
depend ing. if an OB was interrupted 
or not an 0B processor also 
was peter capted. it will send the 
end bracket. 


| 
| 


Pesuesoolce sc 





oureuT 





LUCB 


LUIS=*0*B 


ii 


WwACB 


totes feszectate | 


ood 


BODULE }| LABEL 


REP 


SEE | | 


Tare; TT 
| 
| 
| 
| 
| 


ls 
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IPWSSIB - INDEV (Part 1 of 14) 


InPUT 

sb. 
eee >From 

/ 
fort 
8 

gvEVEBE 
{"{statuss | -----------——-------3 oz 
Aaa EEE Eeneeened 


LUSP 


03 


== 


_ 


| 


[z] 





[2] [3] El 


Ar te ET ES ES et gg Ss Ry Se-Ge-As Pa SR SS SrP  S rny SP 
” 
Qa 


| MODULE | LABEL 
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ouTPuUT 


calling routine STAT, FMHDR 


IWDEV 


INDBV is called to verify, that 

only one RDR and/or Console task 

and only interrupt RD& for Console 

is allowed. It checks and initializes 
the device characteristics field 

an the SUCB. 






Lock the SUCB chain. 

If the device is not available then 

branch: 
eoe >[06 i 
[<7 *y’ 


Lf 
Indicate device started. a+ +--+ 5 
Indicate pointer to LUCB. 


Indicate classes and exit: 


Indicate error. 


Unlock the SUCB chain. 


Exit. 


Return to calling eat ese] 
[Be 
sf 


BOTES REP 


} SODULE | LABEL | 
SRSE 
a 


| REF 


| | a 
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IPWS$$IB ~- CLEAR (Part 1 of 1) 
INPUT PROCESS OUTPUT 











Clear device characteristics 
pointer ae ee a ee 


Bx it. | 
Return to calling routineese 
@ 
thst 
-/ 
Vv 


| | 1° | 
e 
[ess >From calling routine £0C, TERM | 
a j 
| CLEAR | | 
Called to clear the device | 
| { characteristics field in the 
| { SUCB and the pointer to the 
appropriate ehtry in the LUCB. 
| t DEVCHAR 
Pome | [rgepoee = | 
: Crind:) 
LUCB 3 | 
[cups ] ------- --------- === fos] Clear the device characteristics : 
i | | field, pointer to LUCB. sapeatntaetetaieemeeeteeeteten uae | 
[rcscr } | er em nn e enn na >}0z{ Save current class. aaa: 4) fopcuass 
Sees } uJ ——— 
: i 
indicate device available L —<—<S == aan | \ STarusn = 
| E 8408 
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IPWSSIB - VALPHR (Part 1 of 1) 
INPOT 





COMMAND 


[pee | 





Picked 


aes 


. 


| 


PPOt 00 00 00 co 900s OF ce 0400 oe 00 ne ee 


NOTES 


VALPNR validates the page numbers 
serge count) entered as an operand 
SETUP or _ RESTART coment 

will be called whenever a valid 
SETUP or RESTART command was 
entered. 


The number is checked if all 

digits are numeric and then if the 

ponber one the allowed di be baa (for 
aigits are allove 

RESTART 4 digits). 


for 


VSE/POWER PLM Part 3 


ee a ON a ae a ee at a RN 


wen rn nn mn pr 


L 


PROCESS 


{| SODULE | LABEL 








calling routine. 


VALPHR 
Validate page number routine. 





If SETUP comsand in progress then: 


Indicate Ps digits allowed for 
page count. 


Else: 
Indicate 4 digits allowed. 


If pa i cous not numeric 
aore K digits then: 


or 


Indicate error message index. 


BXxIT. 


Convert page count to binary. 


Exit. 


Retura to calling ae 


| REP NOTES 
1 ‘ Message ind 
W225 INVAL 


1censed Material - Property of IBM 


ouTrPeuT 


COMBAND 


| 
| 


| 

! 

| 

| 

| 

! Vr nna ar Ee Ree RNR 
=)% aw nx 
& 


ww 
i 


poetsced 


pe 


| MODULE | LABEL | R&P 
icated: 


ED COBMAND 


If the page number is valid, it 
will be packed, converted to 


bina. and 
SCOMBAND® wv 
workfield wv 
whole comma 
to the appr 
done in 





ork ater” This 
2 later on {when the 
be sored 


nd is valid) 
{will be 


opriate TCB 
CHED* routine). 


pads into the | 


Licensed Material 


PHET Driver 
Mainline 


Property of IBM 


HART LD: LPws$LD - PNET LINE DRIVER 











IPWSSLD -— PNET DRIVER MAINLINE 
oe 


sOTES 


The PNET Driver is attached when 
the first PSTART for a PNET Node 
is given py the operator. A node 
control block (NCB) is created and 
ueued to the PNET Control Block 
PRCE) If the node is a SNA pode, 
a VTaS Interface Control Block 
ayocel is also created. When 
ispatched, the PNET Driver 
executes an endless loop uatil it 
detaches itself, when all NWCBs and 
VTAMN Interface is terminated, The 
PNET Driver is both erent an 
driven. Events are set by 
task to 





d time 

different other VSE/POWE 

request activity by PNET Driver. 
When there are no more events to 
process, the PN&? Driver pincer 
itself into a VSE/ POWER Bait. 
waiting for events. Examples of 
events are : 

channe® End appendage cospletes 
Sen d/asce sts 

BS putter” oF ACP/VTAM Exit 
ackedoles Send/Receive 
completion. 

A node is requested to terminate 
by PSTOP or dite 

uarecoverable line error or 
Signoff by renote. 

gennapies of timer driven events 


nia it for buffer resources for SNA 
Delay | I/O for timer interval for 
BSC nodes. 








PAGE 2.0 


PROCESS OUTPUT 

















Interface closed, 
PNCB cceasue and PNET Draver 
Detached 


Return to VSE/POWER Dispatcher ess] 
e 

Pret 

*y/ 


(PHCBTLD 


FS | 
ee >Entered from VSE/POWER Dispatcher | 
sa 
eu Reset TCB Wait Indication > PNET Driver 
| TCBEB 
nent Deiver weer rn - >] 02) If buffers are to process : | 
| [rcBBQ | A.|Bxecute buffer processing 
| LD-1.1 
UO] Pass EA ASRS ERE FREI TeEeeEN | Activity Control for ACF/VTAM Interface ! 
and a Node ee a 
LD-1.2 
PN2ZT Driver 1 oe ee 04} If more buffers to process oto eee | 02 
CB | 23 i / [oz | 
[rcssg l . : 
eee aE EERE | eed 2405] Check for active nodes and active VTA# 
7 Interface : 
: A- If nodes or VTAK Interface coo” for 
PNCB Pere een _—-—-s active, Wait for more work. / 
On dispatch, goto 
PNCBNCB 
——_—_——_—_—_— Be. If no nodes active and VIA > PNCB 
PNCBVDCS 





z 
3 
bo 
n 
x 
© 
=] 
I 
fs 
er 
> 
o 
te 
a 
w 
5 


SODULE | LABEL 





1 PNET Driver Event Control Block 
Post is reset to dispatch PNET 
Driver again, when it is posted 


during process vith a new Povent. 


While buffer processing is 

conditional on the preSence ot 
buffer events, activity control 
processsng is always executed when 
NET Driver is dispatched. 

Buffer events ma have occurred 
uring processin buffers and 

events. A check is Meee tore nade 


for new buffers to process at this 
point. 


As long as there are noses (at 
least One NCB) or the 

Interface is active ven” 
present), PNET Driver place 

itself into VSE/POWER ait. Swnen 
all nodes are terminated (no NCB) 
and VIAM Interface closed (no 
VDCB) PNET Driver detaches 

itse Wote that when there are 
only BSC nodes, there 15 no VDCB. 


ER EA SE Ee A PEE RS SR SNE PEATE Ue ST EMS RAR ADE GRAS 
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IPWSSLD - PNET DRIVER MAINLINE PAGE 3.0 
InPuT PROCESS OUTPUT 
| PNET Driver oo w----<-9-- 2 > De-gueue buffers from field TCBBQ and BT Driver 

TCB re-order the buffer chain to ccreasncad B 








to time of arrival or completion. 
02{ Loop through te-ordered buffer chain 


NCB until end of chain : 


NCBSNA Hie BO SS aa A.\If buffer is for BSC node, call BSC 
: buffer processing IPWS3LD4 
i : LD1-1.0 
i—---5 


B.fIf buffer is for SHA node, call SHA 
buffer processing 1PW$$LD2 aes o| 





| NOTES { HODULE | LABEL REP I NOTES ) MODULE {| LABEL 


2 when re-ordered, buffers are 


t 
1 #VSE/POWER channel a mdage and 
ACE/V Tan Bxits queue buffers 
sent/received to PNET Driver TCB, 
field TCBBQ. Queue and geaguexs of | 


proces unt end of cha as 
ound. The address of the buffer 
to be processed is passed as part 
of parameter list. 





the buffers iS done so a 
instruction to field PCBBQ to 
serialise access. Buffers are thus 
queued Last-in-First-out on TCBAQ. 
NET Driver reverses the chain to 
First-in-First—Out to correspond 
to tire of arrival or completion. 
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IPWSS$LD - PNET DRIVER MAINLINE PAGE 4.0 
INPUT PROCESS ouUTPUT 











PRCB SSR eee me emma wm If ACP/VTAN Interface Request to 
[PucevpcB 4 oD process: = 

Qn e. 3 
Narre : A.jCall VTAS Interface Processing 

7 IPWSSLD4& 
VDCB etre me ree eae mee a —s LD4&-1.0 
[vpcpact ! 
pure WS eta oer Get first {next} NCB in chain : 
fPucsuce | | r coeeaneteeee a.fit activity eequented for node, call} 
ane | $ prone activity Control IPWS$SLD3 

3 ip3-1.0| 
NCB etme n -— 
NCBACTB 
[yceacrs "J | Repeat step 2 until end of NCB chain : 


BHCR | eee ase 
i—-—>[0u] 1€ ACF/VTAM Interface open: 


A-{Call VTAa Interface Processing 


g 
wn 
i 


ES ED EE TERE (TE IES SR OS REDD Ea SPSS BSP SEAS 
TS SEAS SS RM GE PES ITE TA TE 


: 


| 





















NOTES 


Reg bers es Ge Control controls 
OPEN/CLOSE of PNETs VTAM ACB and 
all events for nodes. 





1 MODULE | LABEL NOTES 
& nen all activity for the nodes 
gas been processed, Interface 
haber d ge 1s again invoked to 
check if VTAN Iaterface can be 
Closed. Reg.? set to indicate 

this function. 


| REF | SODULB | LABEL | REF 


| 
| 








1 Tne VDCB activity control byte is 
caecked for the presence of 
avtivity requests. If requests are 
set, a Call is made to routine 
TPWS$$L04 for processing. When 
invoked at this point, Reg.1 
contains an indication that : 
activity control for Interface is 
requested. 


2 The NCBS corresponding to the 
nodes are_gueued to the PNET 
Control Block (PNCB), when the 
node is started (last started at 
top). The PHCS is checked for the 
presence ef RCBs and if so, a loop 

or all NCBs is performed checking 
foc activity requests for each. 
node. The current NCB 1s kept in 
field NCBPTR. If activity 






re uest {sh are PEGeents Aodule 
IP#$$LD3 is called to process the 
requests. 
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IPW$$LD1 —- BSC Buffer Processing 


j ' t r 
Diagnostic Common Write/kead 















Error | 
Processing 


L in Sequence 
egtaed Processing 


LD1-1.3 






LDI-1.1 





LD1-1.2 





Unit | fonit Check Noreal 
Except ion Processing pi 





Processing | ‘On Let jon 
| Processing g 
LD1-1.3.1 I LD1-1.3.2) LD1-1.3.3 LD1-1.4.1 LD1-1.4.2 





BSC Lank 
Processing 
(ALI Control) 


LD1-1.3.3.1 








Processing 
(831 Control) 
LD1-1.3.3-2 
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IPWS$LD1 - BSC Buffer Processing PAGE 2.0 
INPUT PROCESS OUTPUT 


[ots From PNET Diver Sainline 
a 
Set up for processing this buffer. 
If diagnostic logging is requested: 
Diagnostic L in 
g vee LDI-—1.3 
| Check for presence of severe error: 
Comgon Error Handling 
LD1-1.2 
If write/read sequence: 
t 





Writes Read Seguence Processin 
/ “4 to1—1 3 


sos n enor nn b= --9 05} If prepare sequence: 


2008 0009 08 8 Coy 


NCBF 2IN 
Prepare Sequence Processin 
e os : LD1-1.4 | 


To PNET Driver Nainlinesee 
e 
| 


NOTES NOTES {| BODULE | LABEL 





2 Before control is transferred to 


The 8SC Buffer processing perforas 
the appropriate section, aOceESSES 


t 
two distinct tasks i 
1) It saintains the BS information is stored in the 1/0 
avulti gay ing @ BET} protocol. Thais trace buffer if rodesstode 
is called t evel of PNET. . 
2) It Ted the | and processes to a 3 This routine handles errors which 
certain extent the NJI buffers can occur in Prepare and 
cece iveds This called RJI Level of Write/Read Sequence and are so 
Te ; severe that line is imsediately 
to 1) : 1/0 is scheduled and terminated 
recovery erforrged with two sets ‘ 
of channel command word (CCW) 5 The spreopare, pegagece is used vhen | 
| The oaly BSC control characters 
valid are SOH ENQ DLE-ACKO and 
ene AULT LEAVING 


sequences supported: 
- Pre are Sequence for Line 
itialization 

- unite Read Seguence used for WAK accord 
text transmission and ine protoc 
reception. 

On coapistion of or the 1/0 t 


| he & This routine transmits and 
| channel end a VS#£/ POWER 


receives data, notifies the 
receiver and Xfcuensiveer of 
successful data transmission and 
reception and effects error 
recoverye 

The received information bs 
interrogated and appropriat 

action ken. Valid AOLTI LEAVING 
control characters are: DLE-STX 
{tenet iseio text), DER -aEEY 


a 
Nucleus neues Pohe Butter to PN&t 
Driver TCB and updates the NCB 
with CS of completion. 


The channel end processor 

basically consists of two parts: 

eA section to handle responses 

when the MLI prepare sequence 

is in effect. 

eA section to handle responses 

when the aultileaving write/ read 

CCW sequence is in effect. 

ane type of CCW sequence which vas 
effect is determ@inated by flag 

WCBF2IN in the NCB. 


transmission acknowledged) , 
OBENQ and NAK. 
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IPWSS$LD1 - Diagnostic Logging PAGE 3.0 
INPUT PROCESS ourPoT 


che 
i siece meen etre =) From caller 


Get address of trace area. 


-—--->[0z} ove executed cCws and related CCB into 








0000 00 08 00 90 0 se cece oF a | 


; trace area. ot oa 
3 | : | ~________? Trace~area 
: i----- Por all_ successfully executed read and ———— 
. 1 write CCCs: 7 aaa 
boa If processed data less than 16 bytes 
os data into trace-area 
e 
aove first and last 16 bytes of data 
into trace-area. 
Move part of BCB into trace-area. pe ane 
fos} Return 
To callereece 
es 
P| | 





| HODOLE | LABEL { REF NOTES } MODULE {| LABEL | REP 


oe a ae 
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IPWSS$LD1 - Common Error Processing 


Inpur 


CCB 


[ccacsw ] 


ooo | 


NOTES 


1 Tne following errors are handled 


in 


this routine: |. 
Line Mot Operational | 
Prograrm Check, Protection Check 


Chaahe Data/Control Check, 
Channel Interface Check 
Channel Chaining Check 


PROCESS 


een nnn a 9 1 01] TE 1 


ine not operational or any channel 


check: 


| Weettee an Wes nee CS PR Raa Oe eS ETE 


{ MODULE | LABEL 


A. Reguest node termination 
B. Continues on CHART LD1?-1.0, Step 6 


[error Recording LpS—1 al 


i 


NOPES 


Except 05 not operational, Unit 
Che is set up as pararmeter for 
&rror Logging Routine. 


The node is requested to terainate 
by setting a_stop request due to 
line error. Termination is then 
apitiated in Activity Control. 





OUTPUT 





~} SODULE { LABEL 


Chart Ly 


PAGE 4.0 


Oe rere a HI 





9y 


Licensed Material - Property of IBM 





IPes$LD1 ~- Write/Read Sequence Processing | PAGE 5.0 
Inpot PROCESS ouTrPurTr 
CeasHFO ae emt a aa as rae If Unit Exception (CS# status = 
L/S 107] x*OD00*) : . ¢ e 
[fccastar | w--------? 
3 A-}Process Unit zgxception 
: LD1-1 o3-1 
: Be. Goto eee > 
>received j--—--------- {oz} If Unit Check (CSW status = x*0B00%): 
inpu 


buf fer eahanetanmentabed teens 


Ae-}Process Unit Check = 
LD1-1.3.2 


| B. Goto [--" 


Pree to oe OF Ob Ones se oe eee: 


If 1/0 completed error free (CSW status 
x*Ocooe ( 


A-|Normal 1/0 Completion 
LD1-1.3.3 


Call, 1/0 manager to execute I/0 


Continues on CHART LD1-1.0, Step 6 


‘ 00 00 00 98 00 gate bene oe 
des 








NOTES Oi OTBS ee —Ci‘(CtitSCSCSCSCtCCSEC ULE | LABEL | REF SODULE } LABEL j REF ROTES { SODELE OPES —(i(‘(‘(tis*s*s*s*S*sSCODULE | LABEL Ot REP LABEL { REP 
Tf unat exception or a unit check |  # #£| °° °&3P unat exception or a unit check 2 “2 When a unit check has occurred, |} | J a unit check has occurred, 
nas occurred, the appropriate the error count is updated for’ 
segment is executed. statistic | purposes and the error 
ais 
| 1 s unit exception can occur if The oaged - is examined for time 
VSE/POWER writes to the line out. If so the tise out count is 
while the other end of the line is increased by one, however no 
weiting too. If this nappa: the further analysis of the unit check 
14 is’ reinitiated, sta with sense is done and a BAK is 
read Com|jand to lear the data written. 
an the control unit. ! 
3 On noraal 12 mation is. é the 
A unit exception can also dag received in sormat on is @xaained 
when an BOT is received if Og and appro pris tion taken. 
Soute oe unit however an EOT Ys valid UL T=LBAVING control 
valid rding to the Coaracters are 
AULT -LEAVING iPten to ¢ Ab error LE-STX (transparent text), 
message is written to the console DEE-ackO (transpission 
and NAK is returned. ack now puss or Syncnroutzeasate 
petty s aes Ke 
Not kck1 a ORE are not 
| Suppacted) - 
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IPWSS$LD1 - Write/Read Sequence Unit Exception Processing PAGE 6.0 
INPUT PROCESS OUTPUT 
NCB | need >EOU mf last oxece<ee co was a SELES? pile t acB 
: - set up read on request. —J : = 
F [wceacce } : P ae ' 3 (xcpreor t 
: 02} Otherwise 
Pete  ceaeaieeitated stearate - log error | 
prograsp - reguest to send BAK 
ae fo3} Set up I/0 request (text) 





NOTES | MODULE | LABEL | REP NOTES |} MODULE | LABEL 
A unit exception can occur if | 2 Note: I/O buffer is not released. 
VSE/POWER writes to the line while E 
the other end of the line is 3 Done by going to central 1/0 call. 
writing too. If this Bappens. the 
79 is reinitiated, starting with 
the read comzand to clear the data 
in the control unit. 


A unit exception can also occur 
when an EOT is received by the 
control unit, however an EOT is 
invalid according to the 
MULTI-LEAVING protocol. An error 
message is written to the console 
and a NAK is returned. 





IPWSSLD1 - Write/Read Sequence Unit Check Processing PAGE 7.0 
IuporT PROCBSS OUTPUT 


01, Update error count H | NCB 
uJ 

' a CBT IAC 
fozl Log error t NCBRTRY 
a | 
03 


f 
> 
[! I SY SREC 
| 
| 
$ 























=== | I I If intervention required or retry count 
eeded s 











ncB c Baa 
s has been exc 3) 
NCBATRY =f sere eters ——s -reguest to terminate node 
—_—_—_—— : -indicate line-stop 
NCBCCB  ceenestanetiiieetnenetmenteted due to line-error NCB 
—______5 2 | ~Goto LD1-1.0, Step 6 1 7COLESE 
be- - = Request to send NAK. =e | NCBTTC 


| om: 
ee Er RE SE PS a ENS eS NS OE 


: dl ach 


——S fan) 


fos] Set up 1/0 request (text). 








NOTES { MODOLE | LABEL {| REF : HOTES | SODBULE {| LABEL 
NCBRTKY will be reset, if norrgjal 1 ! 2 The error is logged using S¥C 44, i 
5 Done by going to central I/0 call. | | 





I/0-coa pletion | 
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IPWS$$LD1 - Write/Read Sequence Normal 1/0 Completion PAGE 8.0 
INPUT PROCESS OUTPUT 


NCB Reset error count 


cca s 
bonne If Y/ (a) ocompiares on a not~read CCW: 
Anpat and output buffer 
indica disastrous line error 
error 
isSue error sessage 





== 


Buffer Leow 


[BOFTERS I | 


NCB 


reguest to terminate node ag 

Goto Chart LD1-1.0, Step 6 fete | 
. NCBTTCS 

Signoff sent or rece [oes fo } 


free output and input "Siefer 
oeleemtatetatatene > - Goto 


a 00 cc oe cree es eeed 


Process Link Level (MLI) 
LD14-1.3.3.1 


Process Data Buffer (NJI) 
LD1-1.3.3.2 


ape NY EN OND pp SD pe: Soe A 
' 
J 
Veo 

o 
w 
Ral 
yh 


106} Continues on CHART LD1-1.3, Step 5 














ROTES | MODULE {| LABEL 


3 Sending or heres Fhe oe wk { 
on Line. 


} NODULE § LABEL | REP 


NOTES 
i 2 (aotes AULTI-LEAVING alwa . issued } | 





record terminates a 


Cw*s in wrate/read pairs 





102 VSs/POWER PLM Part 3 


Licensed Material - Property of 18a 


IPwS$LD1 - Process Link Level (LI) 
INPUT 


PAGE 9.0 


PROCESS 


101] If NAK received: [oce = } 


- Reguest to retry —/ 


laSt non-NAK 
- Goto 

ry 
Fie] 





1 
v 


! 
i 
Pe ene ceoneses ite oo ee eo eem 
' 
! 
| 
o 
N 






NCBIBUP 
| NCSOBUP 


[ucBREOP t 
[ a 
| a es 5 


If DLB-ACKO received: 
- Pree output buffer 
- Req seer hext text 1/0 











SOHENQ received: 

Terminate all active . 
transmitters and receivers 
ca Request to transmit DLEACKO 


—_ 


on ee ee ee vee ee eens 


Buffer 





l ' 


i] 
' 
! 
' 
' 
i) 
a oeveener 
t 
' 
t 


If text buffer received (buffer starts 


eich DLESTX) =: 
A. If buffer invalid sad grraning = hes 
[ese [oe 


= Request to send WN 
cic 


Be buffer out of sequence 
Build wence error record 
Request to send that buffer 
Terminate all active 
ceqnenstters and receivers 
- G6oto 


If 


pares indicates sequence 
ro! 


Request next ee <c a ane 

- Terminate all act 
transmitters and receivers 
Goto 


buffer is void (RCB of 0) 
= he as to do text I/0 


[ooe “>[06 
—/ 


buffer violates flow oe 
- Request to terminate n 
- Continue CHART ipi-1.3, Step 5e 


if none of above valid responses has 
been received: 

- write error peerage on console 

- reguest to send 


--------------3f06] Execute scheduled I/O request 


NOTES 


l 1 A WAK sent by the other CPU causes 
a retry of the last non-NAK 
buffer. 


2 A DLE-ACKO is an acknowledgement 
for the buffer just sent. 
appropriate trafsaitter or 
receiver task may be posted for 
status change (e.g. RIP sent) 
indicated buffer ,peader - 

The output putter aot has been 
used and it is not if 

line-buffer, is freed” and put in 
the free output buffer queue. 


| Note: When VSE/PORER sends text to 
another node, aultiple output 
| transmitters can be active filling 





their own buffers. These buffers 
are then queued to the 
xoepeneee Queue anchored at 


3 Receiving SOHENQ geans that rerote 
node is restarting and that all 
tranmissions in progress aust be 
termimated and the Signon process 

re-entered. 

4 A text block has been receaved 
(the receipt of text in response 
to a text of block constitutes an 
inplied DLE-ACKO). 


The last received text byte is 


gaiculaged b addressing the 


ast buffer ue and 
ppg ede yd e eeu dunt length 
provided 


ae || 


POO dd 2000 00 oo OF 08 28 98 OF Os FEOF OP On ee Oe OF Re OP OF D9 OR FEOF OO Oe DH Oe OF 8H ON OF 
o 
, 
ett 
lac) 


ee SL a NY SSS 





MODULE [_wores~—~”~—<“<i—‘—“—s:s:*~*~::”””. CS) DUEL | LABEL REP Ct LABEL j{ 





REP NOTES i 


In block sequence count 
verification there are four 


SODULE {| LABEL } 


REP 


| 
a7 
: 





received block sequence count 
shows a duplicate block 


eiveds it implies that a 
ast buff er must be 
re-transeitted. 


- If the received block 
sequence count is in error: 
taser ee tRCOL BUPFERS 
. ree input buffer if 
hecessary 
° fequest to build control 
reco 
Tb lock sequence error* 
. log error 
. tremjnate all active 
receivers and transmitters. 


When a buffer indicating 
remote detected seguence error 


° Message 1RCOL BUFFERS 

LOSTee- ; . 

° free input butfer if 

hecessar 

. terminate all active 
transraitters and receivers. 


ac 


6 A call is made to the 1/0 eanager. 
Patane ter is NCBREQP which is 


above 


i 
oo 
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IPW$SLD - Handle Data Buffer (JI) PAGZ 10.0 
INPUT PROCESS OUTPUT 


| _te Analyze record control byte (RCB) 
j 
| 


NCBETCB | 
af ee ee en eee 3 
TCHESTI | 





Request to Initiate a Function x*90°* 
- if invalid RIP : >. 
build a buffer with NPGR TCB 


and queue for send = 

else TCBEW 
Eeqeest to create a task ——————— 
indicate which receiver to be TCBESTI 
created 


- free input buffer if necessary. 


00 0000 OF 00 Ree 98 OF OH Oem 


If Permission Granted x*a0*® or 

Negative Perrjission x*BO* or 

Transpission complete x*c0®*; 

- post appro riate task if t 
in Bait and posting allowe 


- free input buffer if necessary. 


A. 
Be 
C. If NJE operator command / console 
message x*9A* or 
NJB input record x*98* — x®F8* or 
NJE output records x*99* - x*P9%: 
- queue buffer for 
appropriate task. 
dD. 


If control record x*FO*: 

If Sign-Off-record read: 

~ free input buffer. 

~ cancel ali tasks if 

. Sign-on Complete . 

reSet Sign-On processing 
set Sign-Off capi ¢te 
request to close line 
purge To—Be-Sent—Queue. 

igi-On-record read: 


an 


LI 
queue baffer for 
activity control 
- request Sign-on process 
~ force new buffer for 
next I/0. 
E. 


For all other control bytes: 
- write error message 
- request to stop line 
due to lLine-error. 











NOTES | MODULE | LABEL { REP SOTES { MODULE j LABEL jj REP 
1A Invalid RIF means: : 1D The following SRCB-types are 
SRECB not within the valid validated: , 
range Core = x*c9* Fnitial-sign-On 


appropriate receiver is ceg® = x*DI* BR onse~Sign-On 
RPashed~ Gepe = xecz* sigh-Off. > 

no permission to activate 
receiver 

line is in °S*® state 


1B Por PGR or NPGR the task will. 
be only posted if this task is 
yep ons or a bg or §PGR or 


Por NPGR: if_task is not 
Waitang for PGR or NPGR, the 


record. is done by activity 
control which also will free 
the buffer. 


stop code "H® is set 





1c Buffer eanagesent cares about 
nuaber of allowed buffer: 

Limit reached, buffer 
Rahagement sets switch for | 
1/0-manager to send Wait-A-Bit 

if number of used buffer is 
decreased due to freeing a 
buffer and the Wait-A-Bit 
switch is set on, buffer. 
Ralagement resets the switch _ 

if this is the only buffer in 
the queue of the appropriate 
receiver task, this receiver | 
task is posted by buffer 
mahagerent. 


The data records and the 
console comaands/messages can 
be destined for different 
tasks. Once a receiver task has 
been found for the first unit 
of work in the buffer, the 
buffer is allocated to that 
ara and the task is posted for 
work. 


eS SD SY eS PE pay SAE SS Sc “Sp S 


If VSE/POWER last sent a 
WAIT-A-BIT, ail receiving and 


song 3c is terminated as data 
is lost. 


Se aamhmanheainanntbecima macamtiaamtanatas maannametaanantianeeanendanentenbadateaneepemsemetnmamen anameeaneeeatenmtetanndaesneminaemtaeatamamentanttemeemnaitamomteaseamemtoant 


The NCB receiver task entries 
are scanned for matching RCB. 
If not found or the RCB is not 
within the valid range e 
input buffer is ignored and 
lihe-stop is requested. 


Rr rr arte Fe ER ED I ER OE ES ENE SO IT UNE ENT CS EE A SS SA SS SO 
EE EI AS ET PE IS SAS EY CAE OS GET NC PS 
A A TLR a TS EO EE TLS OE NT SoG SPS NEP SN 9 Cr SM 
| oat aemeinnel 
RR I EE SEE RETIREE OT I EW EN PRI POIRIER BO ESNGEY RGA TESS GSD GORE WD GATOS Gopi GRIM UTED 
Ce caaeiinntniemannambamtetinentadtameineenemmantimennentiaammentenememateamnants 
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IPWS$LD1 - Channel End Prepare Sequence Processing PAGE 11.0 
Inpor 


EE OE RE SES ATS ce 






















me 
| : or unit check (CSW status = x*0E00°%) 
| : Unit check/exception Processing | 4 
NCBBPAD | : = 
|) s 
Rees i Sateatete If toraal I/O completion, CSW status = 
inpu | t x*0C00* / , . 
buffer oe ee ! 
Seana aan handle norrgal 1/0 completion 
LD4-1.1.3.2 


NOTES 


Tf unit exception ora unit check | #£#£V i$ unit exception or a unit check 
has occurred, control is passed to 
the appropriate routine 


A unit exception can occur if 
VSE/POWER writes to the line 
while the other end of the line is 
writing too (out of 

the anit eeaeptis In this case the 

e unit exception occurs on the 
write command. If this happen Ss 
the I/0 is reinit iated, ing 
with the read command fo clear the 
data in the control anit. 


A unit ences son can also occu 
when an EOT is read ee the control 
unit, however an EOT inval id 
according to the SULTI-LEAVING 
protocol. An error message is 
written and NAK is returned. 


PROCESS ouTput 







| 


If I/0-activity is to stop for this 
Lines 


A. Goto eco > 
7 iO 


eee ee 


If unit exception (CSW states = x*0D00*) 


Continues on CHART LD1-1.0, Step 6. 





MODULE | LABEL j| REF NOTES § SODULE | LABEL {| REP 





resulting sense is interrogated 


| In upit check processing the | 
and appropriate error recovery 


initiated. The bulk of procesSing 


is for time-out. 


foe, OS ot oa le ke ORE LABEL |b ABE: 2, 
| 3 On normal 1/0 completion, the 
received information is examined 





and appr 4 hey iate action taken. 
Valid AULTI-LEAVING control 
characters are: 

DLE-STX (transparent text), 
DLB-ACKO (transeission 

ace sowh eager ¢ or synchronizedidle 
state) an 


ET ENS NE - T D  re 
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IPWSSLD1 ~ Channel End Pepare Sequence Unit Check/Unit Exception Processing PAGE 12.0 
Inport PROCESS ———— 





























| NCB | (ours O4f Update error count ———, } feo | NCB { 
NCBTIAC ’ Scns | SCBTINC H 
jncoaTr wane nn --i [oz} Log error aE ———} NCBRTRY } 
| == | SYSREC 
| NCB | o-oo foa} If retry count or time-out limit hasfeee > eet 
| 3 H been exceeded, force immediate rid 
[NCBRTRE | | alan aaiethecaeioettaie ——s ; ! line-stop 
NCBCCB 
> = i] Qhe 
B fay -HEES] *enss chect semteegeeg = stamens | 
or command re > {NCBREOP 
“io iamediate Line-stop 
“i last CCW vas DISABLE 
eequest to os a 
© send prepare sequence 
aise DISABLE Bnd SBTAODE CCWs 
repeat last seguence. 
| fost If unit exception (CS¥ status = {——---- 
fa}-->-— x*OD00%) = 
af error ocurred on write-Ccr, 
Pep iad to read data 
request to retry last sequence 
{le Set up I/O request (text) 
| [ for} | | 
| 


Ic 














NOTES {| MODULE | LABEL | REF NOTES {| MODULE | LABEL j{ R&F 
2 The error is 1 ed using SVC 44 i SwFc A unit exception can also occur 
when it is a Unie Check ka” when an BOT is receaved by the 
coutrot waits apuaver cae or is 
5 A unit exception can occur if valid according to 
bE Cad a writes to the line , AULTI-LEAVING protocol.” The 
while the other end of the line is prepare sequence is repeated. 
writing too (out of é porn 


Synchronizer scnl: in this case the I 
the unit exception occurs on the : 
write command. If thas ha pense 
the I, is Eoonat set ote s 

° 


with Gee read command gigas e 
data in the control unit. 





ae nS Se renee a RN 
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IPW$$LD1 - Channel gnd Prepare Sequence Normal 1/0 Completion Processing PAGE 13.0 
INPUT PROCBSS OUTPUT 

NCB - set line-initialization on 

- set Sign-On processing on 

NCBIPRO 7. cies ea “3 - reset @rror count 

[eceszee | =-------- : I 

—$————t | : s-----> [02] If DLE-ACKO received: 

3 2 { If SOH-BNQ has been sent: 
Input roe bem - request to send line-buffer 
buffer | = - build Initial-Sign-On-record 
St Ee Se - indicate Response-Sign-M record 
| na | | expecting. 


=] 
rh 





' 
SOH-ERQ receaved: 
{03} - reque to send DLE~ACKO 
yequaee to send line-buffer 
imdicate Initial-Sign-On record 
expecting. 


pres once pees econ nceecne 
i | 


~----3foa} If none of above valid responses has 
been received: 
if error count not exceeded: 
issue message and free input buffer 
update error count 
request to retry : 
else force imazediate line-stop 


[) [3] 


OS TNT RE EE FR EY SpE Nae AE EN STE ES Pre 





REP 





manager which builds up th 
chanhel program based on the 
supplied ,ogvees code and then 
asstes the 1/0. 





line is ari harpat ta Sak arse to 
sign on. An DLE-ACKU is sent and 

the other node is expected to 

respond with an initial signon 

record. 


4 If other node keeps on trying to 
send response, which this node 


05} Set up I/0 request (text). 
does not understand at this early 


{ NOTES } SODULE | LABEL | REF I NOTES | MODULE { LABEL 
3 If a SOH-ENQ has been received | 
time of initializtion (e.g. a 
NAK), the retry will be done only 


the node on the other end of the | 
a certain predefined number of 
times. | 


5 A call is made to the network 1/0 | 
e 


etal eet 
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IPWSSLDZ - PNET SNA Buffer Processing 








Diagnostic [puffers } (ecivere t ferror~—si& 
Logg ing Sent keceived Buffer 
Processing Processing Processing 
LD2-1-1.-1 LD2Z-1-1-2 LD2-1.1.3 LD1-1.13.4 





Processing 
LD2-1.1.321 
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IPW$$LDz2 - PNET SNA Butfer Processing PAGE 2.0 
Input PROCESS Be ourPuT 
fo BS PY 
| oe) fc PNET Driver Mainline | 
le Set up for processing thas buffer. | 


If TRACE required for node : | 


Call Diagnostic Loggin 
g ae LD2-1.1.1 


r-----? [03] If Send or Receive completed without 
: error : 


cose te > Por Send Completion, oxscute 
+<S===>= 3 | D2-1.1.2 
won-—> Por Receive Completion, eieente. ‘4 


If Send or Receive Corapleted wath error 


Execute Error Buffer PEDO RS TEI. 1.8 


Return 


] 





Trace gEntry 








er eg ea a ES SE SU ET GRE SE A 


ED A Se STE TED SD SPP ear SPS eS Se Dan es HS er Se 
we 
~~ 
tc 
x 
& 
Lo) 
OP cee one veen eres cece 


Bw 
rg 
re 
am 
Ww 
z 
Q 
o 
| 
' 
' 
' 
! 
! 
' 
t 
' 
' 
| 
4 
e 


a td 
1 
1 
) 


i} 
wu 


To PNET Driver Mainlineese 
rm 


Ne 


e 
Vv 


a ot 


Ay | 


NOTES | SODULE | LABEL { NOTES | SODULE | LABEL | R&P 


For Send and Receive Operations, t 3 Any RPLETNCD but 0 causes 
ane RPL is part of the buffer and execution of the buffer error 
ueued =. axt of it to the 

Be Driver TCs. 

he RPL Send and Receive Exit and 
fasting In Initial Send/Receive 
Com queue the buffer to 
PNE Driver? TCs. Note that a 
CHECKis done hes Send and Receive 
Exit Routines to free RPL and to 
test if puffer completed in error. 
In case of error Send and Recerve 
terminate and session 1S requested 
to tera inate. 








segment. 


“| 7 
| : 





me 
a 
ee 

Se cteealieneleresieintanaaneens enademaenantenstmnemnananemnmeen tsa 
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IPWSS$LDZ - Diagnostic Logging PAGE 3.0 
INPUT PROCESS ouTPUT 


nF 
=, From Caller 





Get address of trace entry. 














> pore Nove RPL into trace area. PPA 
RPL 
be po-- > 
| haa | | 
Buffer meco rere n---- - 4 | 03[ Bove data into trace area : > Trace-area 
| t If processed data less than 16 bytes 
| | i eine’* data into trace~area RPL 
} ..,move first and last 16 bytes of data Data 
j into trace-area. aon 
NC. SS 
t----->} 04] Bove parts of NCB into trace-area. 
Return to Callereee 
es 
| ar 


| NODULE | LABEL | REF | MODULE | LABEL | REF 


| | $GTE | | ! 





IPw$$LDzZ - Process Send Coapletion PAGE 4.0 
INPUT PROCESS OUTPUT 


| vwocs Peer me seen cen cel Of It node not _terainating due to VTAM or 














| | H | Session failure : 
[vocprrc I : ; 
uu i 3 | A. if buffer owned by receiver or > TCB } 
¢ transpitter: | 
NCB - 0 Sewer wee ——s Set transaitter or receiver TCBESTI 
to state indicate in buffer. —_—_—__ 
[ucaTrc } Post transaitter or receiver TCBEW 
if indicated in buffer header. 
[oat Free Output Buffer. 
| es 
| | Continue on CHART LD2-1.1,Step 5. 
a ee 
NOTES { MODULE }| LABEL | REF NOTES {| SODULE | LABEL | REF 








2 The output buffer is disposed of 
as indicated in the puffer header 
py buffer mapagonens ie@- either 
returned to ¥S /POWER storage or 

laced on trangitter®s queve of 
ree output buffers. 


All Send RPL*s (heaueet Uitte and 
Responses) are handled in this 
routine. (Note that FM headers are 
ea at session establishment 
only). 


1 When node indicates in termination | 
due to ACP/VTAM teraination or 
session termination, the buffer ais 
returned to VSE/POWER storage. 
When node not in termination, the 
buffer is checked if receiver or | 
transmitter owns buffer. If so, 
any Changes of status of. | 
transmitter or receiver is 
} effectuated.as indicated in the | 
buffer header, e.g. a transmitter 
| May assume state RIF Sent. Note 
that Send Completion means that | 
| the buffer was transferred to this 
node*s ACF/VTAS, but not 
necessarily received at remote 
node. | 


LS RS ST a 


aa 
| | 
P| | 
|| 


er ne re pe Senne ene epee ee 
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IPWSSLD2 - Process Receive Completion 
INPUT 
| t 

VDCB cr ne cere ne 


vpcsttc | 


NCB 


[wcertc } 


-----> 


cone eeonmy 





| 
L 


----------- > 


NCB wean 


[NCBPBPRO I 
Ht 


| 
J 


| 
-----3[03] 


| 


08 OF 00 OO OF ee Be Ot O80 Oe Os Bom 
PISIMIVIRISISI ISIS RISE 


' 
1 
' 
i} 
' 
! 
! 
q 
& 
80 cee 8860 Be sony 


i 
| 
i] 
1 
\ 
' 
1 
\ 
{ 
t 





RPLEX 


00 oF er 0999 Seen erence 


ee ee ee a ee eS rE EN 
r 
PUTSINTIRIRISIRIS TREE IED 
i] 
1 
! 
( 
| ' 
' 
Varwme 


| 

| 
RPLERESP 
RPLDFASY 
RPLDFSYN 

: 

| 


PROCESS 


fort If node terminating due to VTAB or fos >fos t 
‘— Session Termination, —, /| 4 





If RPL indicates Response Received : 


A. Issue Diagnostic rgessage. 
B. Free buffer. 


[o3} ae indicates Data Flow Asynchronous 


A. If RSHUT is received, node is 
flagged for termination at BOJ. 


B. If any other received, node is 
flagged for iamediate termination. 


C. Pree buffer. 





(DPSYN) = 


Ae If Command is received, 
Reguest immediate termination 
of node. 
Pree buffer. 


If RPL indicates Data Flow Synchronous | 


B. If data is received 
and “parked® buffers on node. 


c. If data received 
and buffer requires response 
and no storage for response, 


D. If data received 
and buffer cequ izes response 
and response buffer allocated : 
Build Response RPL. 
Queue RPL on To-Be-Sent-Queue. 


E-tProcess NJI Buffer Received 
LD2-1.1.3.1 


Continue on. | 


CHART LD2-1.1, Step 5 

















OUTPUT 


[Re pP onse 


cB 
fucarrc 


He 


| 


Chart LD 


i 
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PAGE 5.0 


a a a OO 
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IPW$$LD2 - Process NJI Buffer Received PAGE 6.0 
Inpur PROCESS OUTPUT 
for} SNA Buffer Decompression Routine. 
BK-1.0 . 
| ane If decompression fails : 
essa) | : ce 
A. Issue diagnostic message. coe > ed —_a_—_w_? SCB 
Bi SC eee een cere eee any Request node termination. 
aaa : Free buffer. / | BCBITC 
 Eacaiecarcies aera! : NCBLNSR 
2 }03] If Signon of remote not complete 
3 and gnything different but NCC record : a 
: A. paste afia nostic pessa eee > 
aguost ic, yessage [r++ 73 [06] 
: Begg eter. 
: 04] analyse record control byte (RCB) : 
Rien A. If buffer contains void RCB ooo” 
7 | Pree buffer. [-=*7 
t---—— Be If Request to initiate a Punction Se 
3 { (RIF): 
: [———3 « 
: < eevcee LDRESRCB 
3 Validate Receiver-ID 
H LD5-1.1 
: C. If invalid RI ; fowe "3 [o06 } 
3 or not able to create receiver < atl 
: Allocate buffer oe 
3 Build pers ission-not-granted a 
: reco: 
3 ueue buffer on 
3 o-Be-Sent—Queve. 
: Pree buffer. 
: D. If valid RIF coe >f06 | 
. and receiver can be created : / 
: Request to create receiver 
7 for streaa. 
Hy Pree buffer. 
-----> BE. If Permission Granted sy or - = "> TCA 
3 Negative Pera ission G. RD or > 
: Trans|@ission conpicea” (TRAK) = TCBEW 
Fa s— . PTCBESTI 
: | < pista LDTSRCB 
: Validate Transm itter-ID 
= LD5-1.2 
: FP. If valid : : [eae "3 foe | 
3 pose Srerore tate taske ——, dl 
3 ree buffer. 
z G. If_invalid ." fos | 
: i Pree buffer. | 
t——--- H. If Release Strean RLSB) : : 
3 Release strean corresponding 4 
s to the SRCB in buffer 
: Request send. PERT EAOr, 
: Free buffer. 
p----—> I. If Hold Stream (HOLD) ; Tt )ITuTZ=> mcs 
z set streaa Conrespe onding to net 
: the SRCB_ suspende a CBRPCS 
4 Pree buffer. 
t----- J. If data buffer (RCB of 94,98-F8) = 
; y are 
: < seec5ccee > LDVSRCB { 
: / Validate Stream-ID 
: LD5-1.3 
: ot 
3 K. If data buffer within valid ee 06 
: range [== 
: Queue buffer to receiver. 
: L- If data buffer has inwalid rangefooe’ >[06 | | 
: : Allocate a buffer i 
: Build recaed to abort streaa. 
: Free buffer. | 
i-----> M. If:-NCC control record : [ooo > > 
if poetuce: Record : —/ joe | [wax buffer 
Request node tera ination. 
If gnon Record 
ueue buffer to NCB. 
equest Signon processing. 
guage buffer to uCB. ——} | NCb 
ndicate buffer was not processed. ee = 3 {wcppprRo 
Continue on Chart LD2Z-1.1.3, Step 5 
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IPW$$LDz - Process NJI Buffer Received PAGE 0.0 
NOTES { SODOLE { LABEL } REF NOTES { MODULE | LABEL j REF 





















1 #NdJI buffers are sent compressed by aI To hold a streaa, this NJI 
remote node. Before processing control record is sent b ; 
them the first RID iS decompréssed rerote. The SRCB in the RID is 
into field BUPRIDD in buffer. Thas used to find the streasg for 
field is analysed in the which buffers can no longer be 
following. sent until released again. ' 

4B Invalid RIF means : 4s If this is the only buffer in SuurF 

RCB out of range of allowed the queue of the appropriate 
ones. receiver task, this r iver 
: task is posted by buffer 

4B Receiver cannot be created when management. 

3 The data records and the 
appropriate receiver is console commands/messages can 
draine . F be destined for different 

no perbission to activate tasks. Once a receiver task has 
receiver i been found for the first RCB in 
task already exists buffer in the buffer, the 

node is in imaediate : pat fer is allocated fo that 
termination. reek and the task 2s posted for 

4E Por PGR or NPGR the task will. , 

be only postes this task is a5 A Signoff record is not sent by 

waiting for a fcR or NPGR or PRET and should not be 

BOT. receaved. 

Por PGR: 1f task is not , : 

waiting for PGk or NPGR, the 5 This entry is always taken when no 

stop codde °H® is set. buffer for_a NJI yes onse record 
cou be allocated when preparing 

4H To release a streaa suspended an WJI answer above. 

earlier, this NJI control 

record is sent. The SRCB in the 

RID is used to find the streaa 

on which buffers can now be 

sent again. i i 
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IPWSSLD2 - Process Error Buffer PAGE 7.0 
INPUT PROCESS OUTPUT 


| VDCB ca era ccm ar ee O1f If node already in termination due [owe 3 03 


i 





Hi to VIAM or Session termination, goto 4} 
yDCBTTCc 3 
st : 
7 fo2} If node not in termination =: 
NCB poe 
[ycerrc t | ind A. If return code indicates 
: exception response or sequence error 
RPL a------------—-? ° Issue message to local console. 
| 3 Request node termination. 
fRptrtTnc> | | : { . 
sao > Be. If return code indicates eee >fou | 
: { ACF/VTAM cannot accept buffer : / 
. | Re-queue buffer for new try. 
i---—> Cc. If return code indica 


tes 
PNET issued bad ACP/VTAB Request : 
Issue rmessage to local console. 
Request node termination. 


Free buffer. 


Continue on CHART LD2-1.1, Step 5. 


a Ee TS EM TE AE NE AT ETT SS 
ee APE Ee SE ee SN 





ace 


NOTES 








NOTES {| SODULE | LABEL | REF 





1 MODULE { LABEL ¢ REP 






















All Send RPL*s (oques®. Un sts and 2A Sequence error of request units i 
Responses) are handled in this received or exception responses 
routine. (Note that PM headers are Cause termination of session. 
sent at session establishaent : 
only) 3 The buffer is freed using the SBUF 
& appropriate buffer aanagement 

The RPLRTNWCD in RPL as analysed service and is either réturned to 
for type of error. If VTAM or VSE/POWEBR storage or to gueue of 
session termination in BE ogress free input resp. free output 
the error is not handled. 7 } buffers. 
Por all gtnet caae2 sae penetcn is 3 th t puget is al Conde 
requeste o terminate, when error e output buffer is a. °. 
buffer is not an outcome of as ind ieated in the puffer header 
session termination. by baffer managoaeut ie@. either 

returned to VSE/POWER storage or 

piscea on tranrgitter*s queue of 

ree output buffers. 


114 VSE/POWER PLM Part 3 


Licensed Material - Property of 18 


IPWSSLD3 - Activity Control 


Activity 
Control’, 
Processing 


LD3-1.0 








Part 1. 
Processing 


LD3-1.1 






Receive 
Request 
rc 


. eq . 
Processing Processing | 
LD3-1.1.4 LD3-1.1.5 
be 






Tiser paspenied 
Event | Buffer | 
Process ing Processing 


LD3-1.1.1 LD3-1.1.3 











Task | Node. ; SNA NCB Bode 

Creation Tera ination Clean Up Start Up 

Request Processing Processing | Processing 
LD3-1.1.7 LD3-1.1.8 | LD3~1.1.11 LD3-1.4.12 
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IPWSSLD3 ~- Activity Control Part 1 PAGE Ze 
INPUT PROCESS OUTPUT 


[eh 
* ° 
la From PNET Driver Mainline 


by If Timer Interval expired : 





Timer Bvent Processing 


: 


ne RT SEE RD ESM CD TE EPEAT RIT IE 1 IS IE EN GAT D SNEID SI® AERS REARS GSR SEM EFS RTS Se 
aaa ick ema a te a csepesutemmeneemneneiaeanienicimennamtaneneih anime akooumaneh saan cenanetietanaamneneaieiamieasiahiheae ennamaeneaeeaaamenanbee 


— LD3-1.1.1 
p-----2} 02) 1f Task(s) to be detached: | 
z Task Detach Processing 
3 LD3-1.1.2 
pecan ” » 7 " ° 
: > [03] If “parked® butfers to process : 

: Suspended Buffer Processing 
3 LD3-1.1.3 
:-—---3[08] If Receive Request to process : 
Receive Request Processing 
LD3-1.1.4] 
—<—<<— j 05} If Send Request to process : 


Send Reguest Processing 
LD3-1.1.5 


a If Sagnon is requested: 


Signon Processing 
LD3-1.1.6 


je Continue with Part 2 Activity Control. 


Pree ed 06 00 0000 po ee De oe 00 08 De nD eR es Ee er eee 








| 


as ee te ee ee 
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IPWS$LD3 - Activity Control Part 2 PAGE 3.0 
INPUT PROCESS ourPpur 





-----2for} If Task(s} Creation is requested: 


| Task Creation Processing 
| LD3-1.1.7 


| 


oreo $[oa} If Node Termination Requested : 


Node Termination Processing 
LD3-1.1.8 


woeen If Signoff Requested ; 


Signoff Processing 
LD3-1.1.9 


t ‘ 
-----3foa] If Line/Session Termination Requested : 


Line/Session Termpination 
ree 
| I 


----- >}{05} If Session Termination Event : | 


NCB Clean Up Processing 
LD3-1.1-11 


asa =—, fos} If Node Start-Up Reguest : 


| Node Start-Up Processing 
LD3~1.1.12 


fo7l Return 
| oe 


POIRIER IRIN IV IS CIE IERIS eee Ie IIe 


free on once erer severe 


i 
| To PNET Driver Mainlineeee 
ye 


| a, 





ce ea uF ee Va T-ASE NY SAY SSA She NS SO I IS PNET TS SC 


i A SA RIN TE TT CO I RE ES ETS ET LS FEA OT LE 















HOTES 


Part 1 as well all Part 2 are 
distinguisned for HIPO technical 
reasons only. 


{| MODULE {| LABEL { REF 


NOTES { MODULE | LABEL | REF 
All request vill reset their { 








reguest flag. If the activity | 

cannot ne Peocesses at that point 

in time, it is set on again and a 

new event must occur to trigger 

execution oan or 
en 


activity can be present for a node C 
a timer ev again. 


| More than one reguest for an | | 
at the Same time. The seguence of | I 
processing is ordered in such a { | 
way, that events being . 
pre-reqguisits for other activities 
are handied first and that events 
ehnerating new events are handled 
efore the generated event. An 
exaaple would be ; To terminate a 
node all transmitters and 
receivers must have terminated. 
Event task detach is therefore 
Ricco se before Line or Session | | 






7 
Z 
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IPW$$LD3 ~ Timer Interval Expired for Node 


INPUT PROCESS 





for} Reset node event control block. 


NCB sdocce gat If node is BSC Node 
meee mc esson ee JS —~ and no line error 
NCBSNA ‘ ‘ or Signoff for aode : 
bd 
eeceee > IPWSSEM 
c—/ 








NOTES } HODULE | LABEL | REF NOTES | MODULE | LABEL { REF 

1 The Bvent Control Block within 2 For BSC this event occurs when the SIOM 

Timer Queue Element of SCB 1s I/O manager had found an eapty 

reset. ; To-Be-Sent-Queue and did a tiger 

Por SHA, this event occurs due to interval to schedule I/0 on timer 

expired timer interval when an expiration. This is done to avoid 

earlier reguest or event could not time-outs when there is nothing to 

not be processed for some reason send froma transaitters. Phe I/ 

and requests re-execution by this manager sends erpty buffers to 

timer interval. keep line busy. 


IPW$$LD3 - Task(s) Detach Request Processing 


INPUT PROCESS 





NCB P coapeeaneene fort Get first (next) entry in NCB-task-entry 
—! list : 


[ycuconst | ieee aera | 
peceuste eos If this task notifies of detaching : 


| WCBETYP 








T-----> A. Update pacing status to allow 
3 Send/Receive on transmitter®s or 
———ooo : receiver*s stream. 
NCBCNTR ~ b 
—_ : : B. Clear NCB Task Bntry for task. 
NCBCNRV wo ccrenn : ; 
: b-——~——> Ce Update number of receiver resp. 
: 4 transmitter tasks. 
eee 


| (23) Ropes’ Step 1 until end of 
uCB-task-enhtry list. 


eres 


| NOTES } MODULE | LABEL { REP | 


NOTES 





This routine is called by activit 2B 
control, whenever a general Detac 
Request in the NCB indicates that 
either a receiver or transmitter 
task notifies PNET Driver of 
| Detaching. 





Execute next text I/0. 





eee eee | 





This routine resets oniy the 
NCB-task-entry-list. Both the 

space of the TCB and the 

workarea have to be released by 

the task itself 


PAGE 4.0 
OUTPUT 























PAGE 5.0 
OUTPUT 





erecten 








L 


Coenen need 
-—_ —/ 


NCBCNTR 
NCBCNRV 


leet 














— Vow 


ee ET Sat SP i 


} SODULE | LABEL | REP 


before | 


: 
| 
| 


2 To notify of Detach the task sets 2c The console transmitter and 
flag NCBDETE in its receiver are not included in 
NCB+task-entry. the number of active | 

i transmitters and receivers, 
2A When tasks terminate, the because they have to be 
stream status relative to cancelled only when | : ; 
| pacing is reset to allow Signoff/Session termination is 
send/receive on that stream started. 
again. 
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requesting task detach. | 
| 
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IPW$$LD3 - Process Suspended Buffers at Node PAGE 6.0 
INPUT PROCESS OUTPUT 





NCB | 
[ycuPBrRO | | 


B. If buffer not processed for SNA fe-e 3 03 
| | | node ;: . E A fos} 


anette Get first (next) buffer on *parked® RANT | NCB 


: > 

buffer queue: | aan aS eT 

A. Set_u Srqunents and call IPWSS$LD1 
or IPRS$LD2. 


- Set timer interval for retry. 


- Leave loop. 


| [o2} Repeat step 1 until no buffers left on 
~~ queue. 
F | 


NOTES AODULE | LABEL REP 
| 1 Module IPW$SLD2 is called for SNA 


' | 

| buffers and module IPWS$$LD1 is | 1 | 
| | 

| 

| | 











WOTES 





| HODULE | LABEL } 
This routine is_executed when an | 


REP 





RII buffer could not be processed 
due to lack of aroced (teal or 


| called for BSC buffers with 
| vVict.} and was queued to NCB for 


andication of second call for 
buffer and buffer address as 


processing when storage might be 
ararmeter. 


available again. F 
sd alled Rt. passes back andication j 
| if unsuccessful execution. The | 
puffer loop is then ended and a 
} | timer ewent is set up for 
re-triggering execution for SHA 


node, Line turn will re-trigger 
node. 





| 
| 
| 
| 
| 










request node termination. 


IPW$$LD3 —- Process Receive Request for SNA Node PAGS 6.0 
InPot PROCESS OUTPUT 
NCB Sees If node terminating due to ACF/VTAM jeee >j04 
or session failure: goto ae i_—,/ fou | 
[ucartc 1 
_ ooo f+. 
i < eeeese > LDGLIBUPF 
freg.15 ] t ~ Allocate a free input t { 
Od : buffer. I 
: i 
| i----- [foz} If input buffer not allocated : 
| i <7 ae | 
2 A. Set up timer interval for later eee {04 | 
H retry. / 
| i----->/03{ If input buffer(s) allocated : | 
Ae quane porter te) on See ee, ——_—! NCB 
eceive-Ahea ueue. { 
NCBIFREX 
B- Call Receive Manager. | 
| Cc. If Receive not accepted, ! 
| | | 
| 


" 








NOTES {| MODULE { LABEL 


NOTES } MODULE | LABEL | REP 


2a If no buffers could be ; 
alloca » @ timer event is set 
up and Receive request NCBRCVE. 


' 
On expiration, a fry is made H 
again to allocate a buffer. 
$1048 
i 








estaplishment of session for the 

irst time and thereafter, | 
Whenever the RPL Receive fxit 
determines that there are no more 
buffers for the next Receive 
request. 


2 Routine LDGIBUF tries to allocate 
buffers from the queue of free 
input buffecs, or, if none 
available, from VSE/POWER Vartual 
Storage, ft returns (in Reg.15) an 
indication if allocation was 


allocated. In case buffers were 
on the pave. Lepoe our fer —ausus: 
more than one buffer can be 
allocated. These are placed on 
the Receive-Ahead-Queue, which 
is used by the Receive fe 
exit. 

successful. 


This routine is executed on | 
Za At least one buffer is 
t ! 


ee er erence enaer nee: 


Chart LD 419 


IP#S$LD3 - Process Send Request 
InsPvutT 


NCB 


[ycBrtc I 


NCB 


[NCuSNA l 


Pree es oe sees nctom 


| 


—— $$} 
i NOTES | MODULE | LABEL | REP i NOTES { MODULE | LABEL KEF 


Por SNA, this routine is executed 
after establishment of the session 
whenever a buffer is placed on the 
To-Be-Sent-Queue py Buffer 
Management (and is the first 
buffer in the queue), or when the 
RPL Send Exit determines that it 
has depleted the Send-Ahead-Queue, 
or when a stream is released by a 
Release Stream Record... 

Por 8SC, this routine is executed 
whenever a buffer is placed on the 
To-Be-Sent-Queue and is the first 
buffer in the queue. 


a 
iM 
ge 








~---->fo2l If node is SNA node : 
[ a | 
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PAGE 7.0 
PROCESS OUTPUT 
--Sfor} If node tersinating due to ACF/VTAM, coe [ou } 
tt) line or session error 


—, / 


eee Yom 


| A.|&xecute Send for SNA node 
t LD3~1.13.5.1 


--Sfosl If node is BSC node : 
[ woe 





IPWSSNM 


Execute next text 1/0. 





Ge SP ere er ee ae Oy ERS PIS APES ED CARO 
oo 





vi 
Ld 
& 


3 When there is already an 1/0 
outstanding the request is ignored 
To e O° Mana a2 3 cose Fo 

Bahager is idle e nex 
iS scheduled. : 


| | 
| | 
; | 
| 


| 
| 


IPWS$SLD3 - Process Send Request for SNA Node PAGE 8.0 
INPUT PROCESS OUTPUT 
NCB <---> If Send ain progress or nothing to pile 
saa --f jeu send, goto ais 4 / os | 
| fucasere } I : } 
| NCBOTBS | | ip] | [o2} If buffers on To-Be-Sent-Queue =: 
NCBOTBSX | \ : Sao 
a een ee 4 A. Transfer buffers froam > NCB 
| { To-Be-Sent-Queue ( Sop err Rann aees | 
NCB a Fs to Send-Ahead-Queue. au CBOTBSX | 
| [NCBOTBS ! Be Clear To-Be-Sent-—Queue.- I 





NOTES 


This routine is the interface to 

Send Aanager for SNA for all Send 

Operations (except exchange of Fs 

headers). It transfers ai 

buffers, aced on the 

| To~se-Sent-Queue oy buffer 

management, to the — 
Send-Anead-Quevue wnich 1s used py 
Send Manager IPwWS$SR. Send is 
interlockéd with this routine, 

this 
the Send 





i.e. while gate is set 
routine does not call 
Manager. 
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S csesas > 


—na/ 


IPWSSSR 


NCBOTBS 
| wCBOBTL 
> NCB 


fucertcs f 





Execute ACF/VTAM Send 








NCBLNSR 


tlag node for termination. 


uli 


e If Send not accepted 























2 The Send Manager is invoked and | 
starts sending fror 
Send-Ahead-Queue. The Send Gate is | 


{ SODULE {| LABEL REP NOTES { SODULE | LABEL j REP 
1 When there is already a Send 
active, or when both 
To—Be-Sent ueue and 
Send-Ahead eue are eapty. this 
routine is a no operation. 
3108 


set, so that Send manager will not 
be invoked again until ali 












buffers 
on Send-Ahead-Queue are 
transferred to VPAM (or an error 
occurs). 


| 
| 
| 
| 
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IPWSSLD3 - NJI Signon Processing 


INPUT 


a ne cere ree TS eT A TINNY Sater A Ne RG SE TE NS TEE: SN SNe TS AL ST SRE EN Sea SE ES AE TS SY TS SN SA 


nca 


NCBTTCS 
lacasenoc 
lwcascur? 
lNcBScoP1 





Input-buffer 


[ucc-recora | 


Input-buffer 
————_; 
[NcC-record } 
| 


NCd 


[wcasGyRz 
[wcpsGopt 
[ ce | 
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PROCESS 


| _po foal If node in termination due to 


t—5 ACF/VTAM, or Line resp. Session [p-=" 
error, or Signoff received, goto 
"> 


[06 | 


O02} If a> L d Let 
At on already complete, [eee 


ag node for termination,goto 


—-~-->} 03] If Signon Procedure 1 is to be used =: 


a 


——— 
Aetna 
enon i----= > 
eannen feo 
Lai 
ca 
aaa RR tr | 
| | 
| % | 
| a | 
: 
! : ae 
Le ene Rianenta 


ee een rene oem amma emammrerne | mmm 


| 
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Ao cre ee ee ee mene Vemma V7 


A- If first part of Sagnon not done 
Build Initial Sighon Record. 
If Signon record duilt o.k., 
Wine first part Signon done 
se 


Request Sigaon again. 
; 


B. If first pact of Signon done 
Validate Response Signon Record. 
If successfully validated, 
Set Signon coaplete. 


se 
Flag node for termination. 
Leave routine, Step 6. 


C. Set request to create 1 job- and 1 
S¥YSoUT-transmitter task. 


D. Free Sign-on record if necessary. 
E. Goto 


[ose 
If Signon Procedure 2 is to be used : 
A. If job/output transmitter or free 
receiver still active 
request Signon again and goto 
3. If first part Signon not done 
Validate Initial Signon Record 
If not validated o.k., | 
Flag node for termination. 
Leave routine, Step 6. 


se 
Set first part Signon done 


> 

| 

c. If Initial Signon validated o.k. 

Build Response aagnoe Record. I 

If Signon record built o.k., i 

Indicate Signon complete. 

ise 

! 


oe 


Request Signon again. 


D. Set reguest to create 1 job- and 1 
SYSOUT~transmitter task. 


&. Pree Sign-on record if necessary. 


[2] 


/—.. 
<) eoccce >f LDNATUP 1 


4 PSE Re NR EN ees | 
4 Update Node Attached 
Tabie 


[3] 
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PAGE 9.0 
OUTPUT 


| 


NCBTTCS 
NCBLNSR 


Vem: 


Output-—buffer 
yCC-record 


ve 


NCB 
NCBICRQ 


{SCBTCRE } 


cecuemhaeshmankaneenaataaataeeekaontanadiaemnael sams ammermhcmameneteantesmaatenietenat anepeaniaetianedaaeeankecdeenet makeddtnamenamhnenaansnaamamhammeacesattceateeaehanenemteinramatiaaeantecatedes ammemeemmanmteneeemmeamemtameetomtootaeam ean 





> Output-puffer 
nCC-record 


Vv 


uCb 


eee | 
NCBTCRE 
[ Ce | 
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EPW$$LD3 - NUL Signoh Processing 
NOTES | MODULE |} LABEL 


The Sign-on process consists of 
two steps: 

4. Send a Signon Record : 

2. Validate the received Signon 
Record. 

There are two cases possible: 
4. This node sends an Initial 
Sign-on-record and receives a 
ReSponse Sign-on-record (Signon 

rocedure 1). 

- This node receives an Initial 


REF NOTES { SODULE | LABEL }{ REF 
A Por BSC, whenever a = 
t 








SOH-ENQ-record has been read 
during norrgal Ligon (ieee 
line has alrea been 
successfully 3ayned—on) 
processing Continues with 

horaal Sign-On-Processing, but 
only after all transmitters and 
receivers left since last 


Signos have terminated. 





termination processin nae the 


appropriate return c if 
Signon Record found Snvalsd- 


| | | | 
| Sign-on-record and sends a 4B Signon request is set b butter SCAB 
ReSponse Sign-on-record (Signon processing when a Signoh recor 
| procedure 2). was received. The buffer is 
j Por BSC the outcome of the line } t queued to NCB | 
| bid determines waich Signon | | If the Sign-on record is | | | 
Procedure is to pe used. Por SNA, queatid. the error message 
session establishment will set 1RB is issued with the 
whicn procedure to use. In BSC the appropriate return code 
node receiving a DLEACKO on his according to the invalid 
Line bid will’ send the Intaitial parameter. 
Signon Record and expect the 
lt ReSponse Signon Record. For SMA, 4c If no_ storage for the Sign-on SBUF 
the node with the higher node name record could be retrieved, the 
vail send the Initial Sigaon ane process is executed bext 
ecor ime once more 
The Initial resp - Response Sagnon The record is placed on the 
node. ¥ rece1red, aoe ERe reaote ; To—Be-Sent-Queue. 
node was queue y buffer 
H pocesing boat ines to the NCB, { H on Signon coap teres the qocg one 
ie ° age 1S set and aessage as 
The SRCB identifies the issued, when Signon 32 
Si n-On~record as follows: coaplete.Furtheraore the 
c* = = Initial-Sign-oOn *Sode-Attached-Table*® is updated 
Gexe = Xepte = Response-Sign-On. if er spooling support is 
rovided. 
2 When Signon is already complete, | \| . 
another Sagnon record is | $SRSR 
considered an error and will ! ) 1 oRLE | 
terminate the node. { 4 i} 3RDC 
3A If no Storage for the Sade ck $BUP 
record could be retrieve the J 
| same process is executed hext 
time once rore Be py tsece: by 
Tine turnaround or imer ! 
event. If built the: peiuee t 
Record 1s placed on the 
To-Be~Sent~-Queue. 
3b Signon reguest 1S set again by $GAA : | 
} puffer processing when a Signon 
| record was received. The puffer 
is queued to NCB. { 
If the Sign-on record is | 
| invalid, the error aessage | i | lI 
WR52I is issued with tne 
appropriate return code t 
accord ing to the invalid 
Parameter. 
The error message 1R80I is 
H issued later on during node | 
I 
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IPW$SLD3 - Task(s) Creation Processing 
INPUT 







{ wCBTTc I | 


NCB wren nme st 


[ucacow st } 


{ NOTES § SODULE | LASJEL | REF if NOTES { MODULE | LABEL | REF 


rece) | | | 


This routine is called, whenever a 
particular NCB indicates that 
@ither output ora JOP. is put wm 
the Xsf-queue, eeeaaeee fo 
tlansm@issSion ART. or PACT 
command has heen. issued by the 
operator or a RIF has peen 
received. Or a RIF was received. 
Two transmitter tasks are created 
at node start up py default. 


ee cee ae EE Se 
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| 


_ 
: 


PROCESS 


NCB ga pee tee f node termination (except for [~ aC } 
—, / 


PSTOP fod} tote 


Licensed Material ~- 


-actaehfoat Do for all tasks in the NCB-task-entry | 


—— + list starting watn console transmitter: 


A. If task entry has task creation 


pea on 








Jf peaperaae: °> LDACTCRT 
Create Task 
LD3-121-7+7 
B. If failure to create task, coo >[on | 
re-trigger be creation by new /\ 


event and got 


03 Repeat Step 2. 


o4 











4 This can be done, as Signoff, 
session or line termination will 
terminate any transmitter or 
receiver which are eealt waiting 
for a PNET Driver event. 


A task cannot be created when 
the storage resources are not 
available. Por BSC the next 
line turn-around, for SNA a 
timer interval expiring will 
re-trigger task creation. 


Property of IBM 


PAGE 10.0 
OUTPUT 







7 
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PAGE 113.0 


IPW$$LD3 - Create Transaitter or Receiver Task 
INPUT PROCESS 


Upcctew 26 6 Soe Fo ee 


ouTPputT 


e 7 
ibabey tila caller 



























’ | 
NCB | catatane a If task exists 
. 7 107] or drained transaitter 
[NCBCONS aN or transmitter and PSTOP EOJ <s 
ro A- Release TCB-space when coo” fos | 
| retrieved. e / [oe } 
NCBEST1 | worcc cen fo} Get TCB-space ir not already retrieved. ¥ | | 
t P | '——----> 
——_—_--—— | A. If no storaye is available [eee >}08 
NCBETYP are —_,/) ——4 
NCBTTC etal 
| [o3] Get work-area for TCB if not already 
1 retrieved. 
NCBETCS A. If no storage is available [roo/> [08 | 4 { 


Initialize task control block. 


Update number of input/output tasks. 





Indicate task is alive. 





! 
Attach task. | 
| 
| 


ce ee arcing \/mnremmememane Vem \/aerennen 





=| 
— | | : 


ern rE ES SO 

% 

‘ 
i] 
tof 
of 
i] 4 
4 
oq 
1 4 
' ot 
' 
t 
H 






























NOTES } HODULE { wortes . § MODULE | LABEL | REF | LABEL | REF NOTES { #ODULE {| LABEL 
Btepsvare performed: first foal | | Ie . | [sas 
: s 
space for the TCB is retrieved, Fy The follow ing fields of the new 
second virtual space for a TCB are initialized 
workarea is retrieved. Due to this -Task { 
fact and the possibility that -logical: unit 
these areas nay not be available -Class table pointer | 
at the first attempt, the routine | —maxe number of buffers 
may nave to be entered more than | eee eaters. ae | 
once. = a en address 
| -RCB related ty task 

1 If the task, re uested to pe | -RIP received 
created, alrea } exists the not for console-task) 
peste oe ignored until task has | -FCS mask. 

ched. 
| 5 The number of out et /in ut 

1 meter aes create = Reanented Brocoerors CaLtes 2 ive 25. " 
r Ss a ommand ma ate ese nus 3° are use ° 
Rave peen -éntered- In this cast it check for task active during node 
is not necessary to create a termination process. The console 
transmitter task (except console transmitter is not included in the 
transmitter) , whereas a receiver nuaber of active transaitters 
must be created in order to handle because he has to be cancel lied 
the NJE protocol properly. } separately during the Sign-of | 

process. 
| 6 fhe new task is attached. { pat | 
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IPWS$$LD3 - Node Termination Processing PAGE 12.0 
INPUT PROCESS ouTrPur 
aa Ol} If node in termination due to other than 
: PSTOP EOJ =: 
ne A. Set up argurents_to pro ate 
~ : tere ihat ion to all tr transa atters and 
$ < receivers, including console 
: 3 transmitter and receiver. 
: : j——. 
: 3 < eeccee > LDACTCNL 
: : —/ 
3 3 Terminate 
: : transa atter/receiver | 
| : 3 03" | 
| | : : | B. Purge all buffers owned by | 
leather nator! Taare transmitters and receivers from 
ncCBrTtc 1 : : To-Be-Sent~-Queue. 
NCBCONST j z z C. If BSC node and node terminates due PTT Ze 
1-4 $ $ to_PSTOP 
| : $ | Reguest Signoff. 
z : D. If SNA node or BSC node and = 
: 3 termination other than PSTOP : 
H 3 Request Line resp. Session 
3 : Termination. 
: 3 Ee eee > 
PO: Ae 
: ee 02] If node in termination due PSTOP EOJ : 
i---~-------> A. Set up to propagate termination to 
| ali transmitterS and receivers, 
| except console transmitter/receiver. 
| < LDACTCNL | 
| Terminate " 
] j transaitter/receiver i 
LDS ' 
| 
| 8. Request Signoff of node. mY Ge [ 
| == —j frcasorn — } 
=| {NCBLCLS scpLcis | 
NOTES 1 MODULE | LABEL | REP NOTES ee ee ee MODULE | LABEL j REP 
The a eee is terminated b 
. terminatin zene transeitters and 
This request is invoked or receivers then requesting 
4. an operator command has the session “Or {ine to terminate. 
entered (PSTOP, PSTOP EOJ, BERD) 
i ta. a VTAM opetator command ha If node termination is set, all SEL 
been entered (Z NET, Z NET Quick, task(s) which are _ still active 
VARY INACT) for SNA node(s have to be stopped. Phis is done 
2- invalid Sign-on receive by scanning the NCB task entries 
3- sign-on out of sequence and setting the at opcode in each 
received. ag which’ still exists. 
| 4. PNET Driver halts node due to fhe task is waiting £9r posting 
internal error leecanse waiting for buffer or 
| 5. Signoff Record received. gborage) « the task is posted. 
6. Line BExce or session ! If ask is just ha retested t 
| terminate 1.@. the TCB-space is retrieved, { 
I Te vrAN Abend or Cancel for SNA but not yet the workspace, the 
nodes TCB-space is released. 
This reguest is not invoked, if 1 node may experience poltiple 
SOH~ENQ “ceceived when Signon terainetisn. le@e Pst 1s being 
conpletefor BSC node processed and a Zine eeeae occurs. 
in which cases the tasks are galy the most severe termination 
cancelled immediately in line. e is executed for each 
ivation of node termination 
| } Segaont- | 
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IPH$SLD3 - Signoff Processing 
INPUT — 





The signoff routine is cal 


a 


18 











NCB r 
NCBTTC : 
NCBCYRV ! : 
| ona+------ -----3 
NC BCNTR | I 

NCBCONST L 


NOTES 


led 
Pend 
command has been entered, and all 


henever a PSTOP EOJ or_a 


ob/out transmitters and rece avers 


ave terminated. It is invoke 
aediately for PSTOP. 




















PAGE 13.0 
PROCESS OUTPUT 
__ta If node terminates due to PSTOP Z0J tlie l 
and transaitters/receivers not yet fy 
teragjinated 
If all tasks terminated : 
ca m—> A. Set up argument to terminate console 
receiver and transmitter. 
oo 
eececee > LDACTCHL 
Terminate Task (s) 
LD5-1.5 
B. Purge buffers on To-Be-Sent-Queue. 
C.j If SWA node =: 
< eccece > LDSGOFRS 
SNA RSHUTD Send 
D. If BSC node =: > buffer 
. NCC-record 
< eeeece > LDSGOFRC 
Signoff Record ucB 











> 
fucaLcus } 


B. If signoff record not done, 
re-quest Signoff again. 


fos} Set request to terminate link. 


| SODULE | LABEL NOTES 

If no buffer could be 
retrievea, event is not reset 
and in the next mainloop of. 
edge | control, this routine 
is recalled. 


A SIGN-OPP record (RCB=X*PU*, 
SRCB=C*®B*) is built and placed 
@ To-Se-Sent-Q. 


} MODULE | 


LABEL | REF 
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w---->{01} If SNA node =: 


IPW$$LD3 - Terminate Link Processing PAGE 14.0 
INPOT PROCESS OUTPUT 
NCB | j.. | 
Tansea SeeSe ssa sSrre 5 | < iabhenee LDWATDIS 
Update Node Attached 
| Table 
! 


A.jExecute Session Termination 
LD3-1.1.10.1 


—---- >|02] If BSC node : 


A.jExecute Line Termination 
LD3-1.1.130.2 


POO ee Ode 00 Oe ce he 08 80 O80 oe 08 88 Oe 


| 









| SODULE | LABEL REP 


NOTES | MODULE | LABEL | REP 
The node, if part of shared spool | | | | 








environment, is deleted fror the 
node attached table in subroutine 
| LDONATDIS. | | 


oa af 


| 


cero cree we 
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IPwWSSLD3 - Terminate Session for SNA Node PAGE 15.0 
IwPpor PROCESS OUTPUT 
wen If any session establishing task(s} in 

wCB fc Wait Yor Storage, or when ick TAS 

a] nner maser ens terminates abnormally and task(s) in 

uCBCTCS1 t 3 WAIT for VPAH event =: 

ieee A. Set task to stop and dispatchable. | 

; . >>f[al 
When session established or being 
established : 


A. If farst_time teraination and no 
VTAM failure : 


je. 
< ecceccee > LDCOWN 
—_—_/ 


Create S$ ion 
Teraaination Task 


el 
Be if Bo aan ceeotos $ is: Ga 





to retry creation later. 


- Goto | 
C. If task successfully created fooe">fou | 
goto ¥ ri / 
D. If not first time termination and 
session termination task is in Wait 
for VTAM event : 
Set task dispatchable and 
set stop code in TCB. 
Be If VIAN failure | ; [ooo > fou } 
and Send or Receive pend ings een VA 
reset gates and free buffers. 
FP. Goto [eee > Oa {7 
/ — 
fost Whea session neither being established 
\— + nor established : 
A. Reguest MCB Teraination. } NCB 
} > {NCBPREE 
fout | 

















{ SODULE | LABEL | REP NOTES } BODUL2Z | LABEL { REP 
To terminate the SNA session When multiple termination occur 
between this node and the remote, session teraination may be in 
a VSE/POWER Subtask is created and progress. If second terrm ination 
attached, which will perfora the 1S Gue to VIAN Abend or Cancel, 
proper action to terainate the task is set dispatchabie in 
sesSion. This can however only pe order to free its resources. 
done, when tasks for session ; 
establish ing have terminated. Two i When Send or Receives are staili 
tasks may b@ active at the same active gates and buffers aust 
time when this and remote start be explicitiy reset resp. be 
session at same time. (Note that freed. 


tasks can sometimes only be ended 
by ACF/VTAM Operator command 
inactivating LU. PNET Driver 
Cannot terminate these tasks 


uCB can only be terminated when 
there iS no session, otherwise 
se@ssion termination task sust 


| except wnen VTA fails.) | reguest free. 
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IPW$SSLD3 - Terminate Line for BSC Bode 
Inpot 


PROCESS 





NCB pore te en wo ercee- = If transmitters and/or receivers t-lss } 


still active 
or line still busy, goto 





[ucBcuRV ] | 


NCBCNTR | 


— <escece’> LDPREPTR 
N coc 
Dequeue NCB 
lucupiar 
fo 
< eeccee > LDNCBTRA 
c——/ 


Ae 
B. 
c. 
D. 


oe RS A SE pager TE GSE: 





I NOTES { AODULE | LABEL | REP I 





The line close indication as set 
by the signoff routine or node 

termination routine (e.g. due toa 
line-error). 


The termination of the line and 
freeing of NCB cannot progress 
until all activities on the node 
are quiesced. Therefore this . 
routine is re-entered uatil:all is 
quiete. 


Subroutine LDPREPTR takes the NCB 
out of the chain and releases the | 
line puffers of the node. 


Whenever the chain of NCBs is 
changed, the P¥CB has to be 
locked. 


2A The statistic message 1803I is 
written to the central operator | 
and the session account record 
is written. | 


Subroutine LDNCBTRE does the 
following ;:. 

- If immediate stop was pedecetee 
or a disastrous line error has 
occurred, causing immediate stop, 
commands and messages can be 
queued to the NCB. All commands 
are therefore deleted and storage 
is freed. ; ; 

~ All buffers which are still in 
the free input buffer queue are 
released as well as the input and 
output line-buffer. 


O2{ If all itransmitters and/or receivers 
[02] terminated, and 1: é i 


ov 
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7 





ane not active : 


Clean buffers and 
messages on NCB 





Write Statistics Message. 

Issue Disable Command for line. 
Unassign logical unit for line. 
Release NCB Space. 


a 
eeseee > 
——/ 


LDTOPOLG 
Start transmitters on 


other routes 





Le nsmemetianemtamamnandhammmanetemmemetenaemperaeinenn:tean-naieestanedeaee gee aeetsan n-eceaned, aan ig anny 





NOTES 
2B The last sequence for the node 


iss 

| WRITE DISABLE. . 
The channel appendage routine 
has been removed from the CCB 
and a WAIT will be done here in 
place. 


The Signoff message 1RBOI is 
issued’ with the reason code: 

= PSTOP or PSTOP EOJ entered 
1 = Signoff record received 

= signee record out of sequence 
re 


re en emia 
0 


2 
ived 

3 = Command reject occurred 

4 =z line error’ occurred. 

S = PNET Driver halts node. 

6 = WAM failure. 


2c The logical unit is unassigned. 
2D The NCB itself is released. 


Subroutine LDTOPOLG is called to 
start transmitters on alternate 
routes, if this node was a 
store~and~-forward-node in the 
network. 


$RSR 


SPAR 


OUTPUT 


PAGE 15.0 


a 


; 


HODULE | LABEL 





| REF 
[SaPc 





SGAM 


a 


mn ni ne 


130 VSE/POWER PLM Part 3 


Licensed material - Property of IBM 


IP#W$SLD3 - Clean-Up WCB for SNA Node PAGE 16.0 
INPUT PROCESS OUFPUT 


Ji If tasks for session estab] ishaent fone miley vDCB 


or sesg ion termination still active, coo 7 [04 | aa TED 5 
VDCBASES 


i 





or i or Receive still active, 
goto 


fo2} If autoaatic restart of node suppressed, 
or stop condition prevents restart : 








Jae 
PE ereerr "> LDPREPTR 








a | 
NCBCTCB2 


Remove NCB from chain of 


= 








A. Reset Restart-in-Progress 


Loses LDNCBTES 


/ Clean buffers and 


messages on FCB 





B. Write Statistics Message. 
C. Release NCB space. 


en LEI ee I 


D. Decrease number of active SNA nodes. 
fo3} If automatic restart in progress : 


A. Set rrp hr At a and 


Restart-Node-Request 
/——.. 
< secsee > LDNCBTRA 


Clean buffers and 
messages on NCB 





B. Write Statistics sessage. 





NOTES 1 MODULE | LABEL REF 


The session termination request is 
set by the signoff routine or node 
SESE 





NOTES | HODULE {| LABEL | 


Subroutine LDNSCBTRA does the 
following : 

If imgwediate stop was requested 
or a disastrous. line error has 


REF 









ceroee routine (e.g. due toa 


The Clean op of the NCB cannot 
progress uatil all activities on 
he node are quiesced. Therefore 
this routime 1s re-entered until 
all is quiete. 


occurred, causing immediate stop, 
cogrands and eeaangee <a can be 
queued to the B. All commands 
are Caerotors isisted and storage 
is fre 

- All bet se s which are still on 
the input buffer guesses or output 
gaeees parked 


pss corgapression buffer of 


The session is tried to be 
re-established for certain 
terminating conditions. 


Subroutine LDPREPTR takes the NCB 
out of the chain. 


Whenever the Chain of NCBs 13 
Gaengote the PNCB has to be 


uffer queues are 


n 


The Signoff Seasage BOI is 
assued with t reason code; 

= PSTOP or teerbe £0J entered 
Signon record out of sequence 
received 

ine error occurred. 

PNET Driver halts node. 

VTAN failure. 


The NCB itself is released. 


Subroutine LDTOPOLG is called to 
start transaitters on alternate 
routes, if this node vas a 
store-and-forvard-node in the 
networke 


The statistic message 1R05I is 
written to the central 
operator. 


QUE wo 
Hit 


The number is used to determine 
af the the TAR Interface can be 
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IPWS$$LD3 - Node Start Up Processing 





ee eee areas ES 


132 


Isput 


NCB 


fucaswa . iia: 


Pee v0 OF 00 8 Co ee ay 


NOTES 


This routine is executed when the 
node is started by the central 


crerarors 
The comaand processor has already 
reserved storage for the NCd and 
partially formatted it {i.e 
information out of the NDT: e.g. 
node-id, node~passvword, 
line-password, RCB-bytes in 
task-entry-list, buffersize 
maximal nuabers of buffers for 
receiver ob- and output 
transpitte S)- The NCB is already 
queued as first entry of the 
network NCB chain by the command 
processor. 
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PAGE 17.0 
OUTPUT 


PROCESS 






>fort If SNA node : 
| 


(acca SNA Node Start P53 1.1.42 if 


O02} If BSC node : 


A.|£xecute BSC Node Start UP a Wakao 






BODULE | LABEL 


REF NOTES t 
Start Up procedures for SHA and 

BSC node are different, sainly 
because for SNA session has to be 
established before Signon can 

start, whereas for BSC line must 
enabled and initialisation | 


MODULE [| LABEL { 


| sequence sent. Also resources 
other resources aust be available 
for BSC nodee 


: 


ee ee ee 
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IP#$S$LD3 - SWA Node Start-Up PAGE 18.0 
INPUuT PROCESS OUTPUT 
| ¥DCB | wenn au leg Pp I ar I | | 
r If PNET ACB not yet Open , goto = 06 > TCB 
| [vpcpoPex I | z | | CS} 
t----->f02] If PNET ACB Open : > 
i 
A. If_node restart in progress, pes 
Clean up reset NCB to initial a 5 > TCB 
status. } | SESE | 
B. Allocate a console receiver. 
| /eeeeee” 
< eeececee > Create Task 
| co / 
' 
NCB 1_-----------—, —----3 [03] If not allocated : | } | { 
Ace | | 
: — 
: eueee’> LDPREPTR 
: Dequeue NCB | | | | 
i t : oJ t 
: A. Issue message, goto coe 7foe | } 
| i--- += > B. If _ console receiver allocated to ers ~t 
node, next step. Te a 
| | | 
| | } 04 | Allocate virtual storage work space. i 
A. If no workspace obtained : coo” foo } | 
| Set up tiker interval : /t— j 
for retry 
| B. If goapression work space allocated, =a eee! 
next step. aaa 3 aries 
fos] Allocate task for session establishaent. 
| | A. If task not allocated :; [ece” 06 
Set up timer interval —/1 
for retry ii 
8. If task allocated : ~_t 
Attach task. ae ee 











BSODULE j LABEL REP 


I NOTES | BHODULE | LABEL {¢ REF 


1 A SNA node cannot be started 
unless PNET ACB was opened 
successfully. First art of a SHA 


' 










NOTES 


4 Workspace_can be allocated while ! 
TCB not allocatable. In this case 
work area must not be allocated 








node requests also PWET ACB OPEN. twice. | 
compl cs BennT ger ree pees orn 5B A task to establish the session | 
coaplete. a 
. ; { with the remote node is : | 
2B OALToeated St this pout as allocation is catrisd by’ 
° s 
console ressages flow without setting up timer interval. Hote 
transeitter receiver that a task is also created by 
Bape ener tha. when not allocated bebe gpd Pips ett oe 
node terminates. ue: Ss 
t . { | node. Resolution of possible | f 
4 A work area is required to conflicts is in IPw$3s2. 
compress buffers sent by PRET 
CPECSE. Ehen not allocated, | 
allocation is retried by setting 
up timer interval. 1 ; 
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IPwWS$$LD3 ~- Node Start Up sSC PAGE 19.0 
Input PROCESS ourpuT 





Allocate console receiver for node. 





Ae If failure to allocate, goto 









Get one input and one output buffer. 


Load EBCDIC table. 


CANC | see eee ene —- +--+ = Update CCB and Sense-Cc#. 


fos} Schedule next 1/0 *Initial Contact*. 






NOTES } SODULE } LABEL j REF NOTES { SODULE } LABEL 


oe eee ae eS REP 
This routine is invoked when the ae “S he *initial contact® channel $$  « «#4§  §$i0om8 | contact® channel 
line is started by the central rogras consists of: 
operator. POT 
s$BUP 





The command processor has already ~SETHODE 
reserved storage for the NCB an ABLE 
=uaITE SOH EBNQ 


partially formatted it (i.e. all 
information out of the NDT: e.g. 

Sreat soy is ceguested by setting 
line-passvword, RCB-b tes in appropriate Qe taro code in §3CB 
task-entry-List, buffersize 
maximal numbers of buffers for 
receiver, job- and output 
transaitters) . NCB is already 
queued as Fits: aners of the 
network NCB chain by the command 
processor. 


2 These buffers are only used by the 
Tine-ariver to avoid dea alock & 


sg fo ter rey 27g sent a 
AT *aSbEP“ALe . ghey are released 
not before taneccl ose. 


4 The CCB isu ated with the 
indacation t. a channel end 
appendage ex ints and the address 

it ae cuanget end arepeadages . 
ve S wi e rea 
the eitst cCW and the ad ieetion 
for aowesting irrecoverable 
I/0~-ert ors. 
The sense CCW (as part of the CCB) 
is a pee with op-code, sappress 
wrong ae indication, length of 
data, 723 address of data-afrea.- 


node-id, node-password, 
ager, which in 


fact creates the channe "pr 
based on the reqpest § code an 
ly issues Oo 
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IPWSSLD4 - ACF/VTAM Interface Processing 





i 
[remote | VSE/P OWER 
Session Shutdown 


PNET ACB [pugr ACB 
Ope: Open Reguest 
[Request Event 
Bvént 

LDS-1.1.4 LD4-1.13.5 


D 
Request peospistsen 
LD4&-1.1.1 LD4—-1.422 








Interface 
Processing 
Part2 


LD4-1.2 
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IPWSSLD4 - ACP/VTAM Interface Processing PAGE 2.0 
INPU? PROCESS ouTeuT 





fel. : 
e o # 

ieee >From PNET Driver sainline 
—/ 


x 

















vpcB p77 > port If Request to Open PN&T Interface to | 
aa eer anaes 3 ACF/VTAM : 
{vpcsacr1 | $ 
[ es | : 
3 Request to OPEN PNET*s ACP/VTAA 
| : Interface Ad 
H 3 ‘ LD4-1.1.14 
| : \ 
3 j P ; 
| | oo >} 02] If notification of PNET OPEN Interface 
| s t Completion =: 
: Open Corapletion Processing 
: LD4-1.1.2 
t--=-- If notification of ACF/VTAN termination 
: Process ACF/VTAMS Tergination 
z LD4-1.1.3 
| | 
| ae 04{ If request for session by remote node : 
p | | 
: Process Remote Session Request ; 
: LDU—1.1.4 | | 
| | paecat O5] If VSE/POWER Shutdown Event : 
eel | | t 
| | facr/vran Setlogon Quiesce } | 
| i LD4-1.14.5 H 
| | | 
Return | i 
t 
To PNET Draver Mainlinee | 
| le } 
} *y/ 
NOTES { MODULE | LABEL {| REP NOTES § BODULE {| LABEL | &EF 











at the same time. The sequence in 
yaich they are processed is as 
follows : 
« Events related to PNET 

as application under ACF/VTAA. 


All request will reset their | 
cannot be. processed at that point 
it is set on again and a 
| 


| request flag. If the activity | 
an tire, 

i nev event gust occur to trigger | | 

i 

{| | | 

{| | | 


execution (by a timer event 


t Sore than one reguest for 

I interface activity can be present 
i 

' 


again. 


- Session related events. Part 1 | 
of Interface Processing is invoked 
before node activity iS processed. | 





| 
| 
| 
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INPUT PROCESS ouTrPpuT 


lfoat Baild eroneter List to attach VSE 
a saptasi | | 


foz} Attach VSE subtask. 
, a 


cco If Attach fails : 

















oo eae es <~t A. Kequest to terminate all SNA nodes. 
I 2 B. Issue message to local console. NCBLNSR 
. #CBITC 
i-----3 foul If Attach successful : ad 
vD 
A- Indacate Open pending. ——'; ce 
VDCBOPNP 


{| BODULE } LABEL | REP 


NOTES } SODULE | LABEL |} REF 


2 A VSE peorask is ateenee ne issue pATTACH 
an OPEN for PNET*s ACB t 
Borger AM This task is then used 
by VTAS = schedule all exits 
lateron oe SCIP Exit, LOSTERS 
Exit and REL Exits. 
























IPWSSLD4 - Process OPEN Completion PAGE 4.0 
= —_, PROCESS ouTPUT 
VDCB Efi c | oanetetetee for} If OPEN coapleted succesful : > VDCB 
yYDCBaOPEN |} -------- ~------i VDCBOPNP 
1 Ae Reset Open Pending Status. 
Para ae — 
| t----->/02{ If OPEN completed unsuccesfal =: 
A. Reset Open Pending Status. ARLE 
Be. If OPEN saute because ACP/VTAK was > NCB 
not started 
- Request. to OPEN later again NCBLNSR 
by setting timer interval. Pron aE 
C. If OPEN fails for any other reason : 
- Soqeest to terminate 
1 all started SNA nodes. 


‘NOTES { MODULE §| LABEL j REF NOTES § SODULE | LABEL { REF 








1 On completion of Open, the subtask 2c All nodes are be Pa be me 
Notifies PNET Driver, indicating 
if OPEN completed o. k. 


indication of VTAH fail 

when OPES not successful. 

Open fa fivi™g the reason i. 
ure is issued by VSE 

sabtaaK. | 


| 


a rsenrtnanenmamrnttattire 
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INPuT PROCESS OUTPUT 


[ NCB 
[ucauwse 
| | NCBEPTC 


VDCB 


fvDCBPsRQ } 








VbCB 


vDOCBTTCV Pa a een ne ee. 


-—-— If ACP/VTAM terminates by ABEND/CANCEL 
or by Z@ WET QUICK =: 


A. Request to terminate all SHA nodes. 


B- Clean Up all session request ai 
elementS waiting for processing. 





Se ae ere. 
proves cad berg 
— 


eee 


V ee ere 
aR CO CPR AT 





----->/02] If ACP/VTAN terminates by Z NET : 


ee 


A. Request to terminate all SNA nodes. 


fee eee mel 


f RoTvTss { MODULE | LABEL | RBP } NOTES t MODULE | LABEL | REP 





a ee reece eee 


VDCBPLDQ 











2 PNET Driver is notified by TPEND 





1 PNBT Driver is notified by ‘ | E i 
ination Exit to terminate all current 
Briton by TREND Exit of | | | activity and then to CLOSE ACB. 
ba eeaaaie I | 2a All nodes are terminated with | 
™ Mndeeeien*se Han ‘eSiTace ana | fia Operetor iatervent son 
indication 0: a ; ° 
i i j t Sessions are orderly corpleted 
irr ety eben 1 by module IPws$s3. 
Sessions can no longer be PREVIS H 
coapleted. feguest elerments are 
therefore cleaned up. 

























IPW$$LD4 - Process Session Request by Remote Node PAGE 6.0 
INPUT PROCESS OUTPUT 
vpcsB (aac >for If ACF/VTAB Abends or Cancels, goto feos "S 05 | 
| [yocattcy  } ---------------i | ie | 
Ld | 
——--—>10 it: 
enen | r <} If request elements in storage wait : | 
VDCBPLDQ) = ||, ------------- — PE prorat, 
l 5 cooeee LDSESCR 
: Create Task for Session 
3 jo opeset ton 
2 | LDS§-1.1.4.1 | 
i----- >fo3} 1£ request elements regaining in eee 5]05 i 
bese storage wait, goto /j-— | | 
| 
| VWDCB e—----2 [oa] Re-order gueue elements to correspond to 1 $ VDCB I 
YDCBPSRO t Se ere ba 3 time of arrival of element. [yocaPLbg f 
J . VDCBPLDQ 
< pick LDSBSCR 
— Sea ee 
Create Task for Session { 
| | Completion | | 
es: | { 
ne | 
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InPor PROCESS OUTPUT 











ind satcnind d app 11a) 

- If matchin appl ae ound 
Store XC r 
flse . 
Increase buaber rergote sessions. 


ess in SRQE. 


! 
t j 
e “ft | 
| [:& From Calier | 
u/I I Y 
— 
{ pO? Sho pire (mext} session reguest elesent i 
| | A. Set up argument for TCB allocation. 
| | —. | 
| < eec5ose > LDCONN { 
t a Allocate task for 
| Session Completion 
eaten | B. If TCB not allocated : ooo fone "$fo3 | Se aa ————_ > WDCB 
: - Queue request element to WDCB. —>/ 
3 = Bee up timer interval for VDCBPLDQ 
: Esto.” ———— 
: Sa P ¥ ; SROE 
bowen Cc. If TCS allocated : 
| = Loop through ali BCBS fay ins SRQRANCS 


Repeat step 1 until all SRQB*s 
processed. 


ig 


Retura | 


| 

| 

| 

| 

| feeg15 | 
| 

| 

| 

| 

| 

| 

| Retur a 
| 








-f 
v 
a ees Soe 
{ NOTES { MODULE | LASEL | REF i NOTES | SODULE | LABEL { REF } 
Tne queue as Looped throu a i Ss 
ane guew goose eoPes are ge end When tasks for session creation i 


(SRQ2) a task 18 allocated. ‘TRis are not created, a timer interval 


foe 
will re-trigger executio 
task executes aodule IPdS$LVZ2 to } | | ae ptamrs The address of SBOE foe” 
*) 
| | | ich storage allocation fails is 
i 
ieee ee 


t 
complete the session. | 
placed into ¥DCBPLDQ. { 


A suproutine 1s invoked to 
allocate a TCB for the task. 
The task-id are passed as 
argument. 


— 
» 
A apc ee ge RTE IR 





IPd$$LD4 - Request for ACP/VTAS Setlogon Quiesce 
INPUT PROCESS 


If ACP/VTAM cannot execute eee >[03 
tEgueet goto [ee/ 


Set requyee to Setlogon Quiesce for ¥SE 
supta 


PAGE 9.0 





VDCB | p-o--- 


VDC3NPWR oe, 2 
VDCBOPEN 9 f ~7---------—— --3 





=] [5] 
Nw 








$ VDCB 


Post subtask. VDCBLGQ 





Continue on CHART LD4-1.1, Step 6. 


o 
w 








HODULE | LABEL 
t 


NOTES | SODULE | LABEL j{ REF | REP 


| 1 ACP/VTAN cannot execute request » 
| when it terminated earlier or when 


OPEN not complete. In case UP 
| not complete event will re-execute | 


| 
ea 












when it completes. 
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Inport PROCESS OUTPUT 





200 "FFro8 PNET Driver Mainline 








| 
+} 
VDCB «(SSS ae Seer s Ha >101] If number of SNA nodes not zero andjeee >{05 | 
{ session reguests by reaote nodes / 
[vocbases present, goto 
pepeerose 
Cancel any pending timer interval for 
{VDCBPLDQ vpcB. 
| en | 
vocsB annie [o3} Xf PNET OPEN ACB never opened or CLOSE 
eaten ACB complete : 
fvpcopEn } 






[a 
</sesvee’> LDVDCTRS 
rms i 
release VDCB storage 


1 
A. Goto [ooo > 05 


Pree eee cone oe oe ee ae sens sees 


—---->}04[ If PNET ACB still OPEN =: 
uu 


A. If VTAM Abend occurred : 






LDVDCTRA 
Release ¥DCB storage 





eed 


B. If VTAM not in Abend VDCB 


Ad = 
Reguest VSE subtask to CLOSE PNET 





ee 


ACB. VDCBSCL 
Post VSE subtask. 
05] Return 
— 
To PHET Driver Mainlineeece 
eo 
e 


v 


:. 
| 


Ne 
- 





NOTES { MODULE 4 LABEL WOTES § AODULE | LABEL 





R&P 
1 The PNET ACS can only be closed t Tt indi i i | 
ynen Here 2° ne ecery att for Aes H 1 paar CB opened successfully. it H 1 
, 1.04 2 nodes is reset when PNET ACB i . 
| RETEST Sead dag Sebsicn requests” | | Holts sheet ylcbor esters 
>Se - is requested in that 
| | H ; | case, however. ’ | 
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InNPOT PROCESS ouTPpur 
Parameters { 2 Argugent 
NCBEADDR | ache From Caller _ ; =e } 
od tckd date ~~ fo If receiver id not walid, return coo >on | —————7 | ECBCADDR | 
: zero address. / RCBIPT { 
3 Get address of first (next) 
: uCB-task-entry for receiver : H 
aes | A. zt rec sven id and RCB in task ieee 04 i [ 
entry ma : 
a geih tolcees oe ‘ 
a. ry. 
- Return address of 
compl. WCB-task-entry. 
| pepest Step 1 until end of 
NCB-task-entries. 
Return 
To Callereee 
e 
pe 
=f 


NOTES 1 HODULE | LABEL | REP 


This subroutine is invoked with an 
parameter list containing the. 
receiver (the RCB of the receiver 
the RIP is for} the request to 
initiate a function is’ intended. 
It returns in the argusent list 


AODULE j LABEL 


the address of the NCB task entry 
corresponding to the receiver-id 
and the addréss of the receiver 
which must not exist at the same 
tine p hee complementary receiver} 
An address of zero is returned, 
when receiver-id is invaled. 


IP#$$LD5 ~- Validate Transsmitter-ID 
ImPput PROCESS OUTPUT 





Parameter sh 
[acBEADDR } eco >From Caller 


NWCBCADDR { wenn n>y 7 7 : oe 
—— If transaitter id not walid, return jese > 
RCBIPT zero address. ° v4 








Get address of first (next) MCB task 
entry for transaitter. 


wees VS 
| ane 
—— A. If transmitter id and RCB in [ooo 
task entry satch : [r= 
- Return address of 
BCB-task-entry. Taw 
Repeat Step 1 until end of 
BCB-task-entries. 
Return 
To Callereee 
=| 
v 


| MODULE | LABEL {| REF 
This subroutine is inwoked with a | 


(ror coon 00 00 tees 


{| BODULE | LABEL 





arameter list containing the 
fransmitter—id as passed by the 
eee ot cegee re in buffer. It 
returns in the argument the 


address of the NCB task cactl | 
| corresponding to the transaitter 
or zero if invalid. } 


Chart LD 














1 REP 


PAGE 2.0 


| BEP 
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INPUT PROCESS ourPuT 


Parameter . L, 
e e 
NCBEADDR baa From Caller 
NCBCADDR wee meee . ee 1 


RCBIPT sdawesse” +f Bot valid, retuca sero [= (i ——J 


If stream-id is console, return - 
[o2} adatess ef cossoke Teceiver.” [e+ 






Get address of first (next) 
NCB-task-entry for receiver. 


ae A. If streas-id and RCB in task eee 
entiy match 4 


turn address of : 
NCB-task-entry. oon oe Se 


He ard Step 1 until end of 
uCB-task-entries. 
fos} 


Return 


To Callerese] 


i | : 


NOTES | MODULE } LABEL |} REF | MODULE j LABEL 


This subroutine is invoked with a 


parameter list containing the id 


the data. It returns in the 
argument the address of the NCB 
taSk entry corresponding to the 
stream or zero if invalid. 





IPWSSLD5 - Log Error onto SYSREC for BSC Node PAGE 4.0 
Inpor PROCESS OUTPUT 





From Caller 


[20 


/ 





for} Write proper error record ato SYSREC. 





> 
8CEREC 


Return 
To Callerece 
ye 
+f 
NOTES {| SODULE | LABEL | REF NOTES { SODULE | LABEL | REF 


This subroutine is invoked with a 
pararmeter list containing the kind 
of error log to be written. It 
forrmats the proper record vith. 
statistical inforration and writes 
it onto SYSREC using SVC44. 
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INPOT PROCESS OuTPuTr 
CHCLPAR | [2b 
e s 
CHCLIST weeny, fooe OF Caller 
CNCLNUS : ; A 
ma wae Soe = : 
pana : bom Get address of first (next) task 
CHCLCOt : aren een an am : le terminate. ( ) task: £0 | 
CNCLCO2Z =f =~------- i-— 
pots siaeece If task exists : TCB 
nea 2: : | pySeERTEs-Sraied 
o<<S= a, Sessarseras= A. Set termination code to task*s TCB. " j ine 

NCBETCB : ; | ! > {TCBER 
[ | : B. If any termination but PSTOP EOJ : eeaaE | 

3 - Ss task dispatchable 

3 when in Wait for PWET event. TCB 

z - Clean Up any task in creation. 

= TCBEW 

i-----> Repeat Step 1 until number of task to 

103] cahcel reached. 
Return 
4 

NOTES { BODULE | LABEL | REP {| SODULE | LABEL 


This subroutine is invoked with a 
popoeete: list containing the 
CB-task-entry address of the 
first task to be terminated, the 
nuaber of tasks to be terminated, 
ec tergsination codes for the 
ask. 


Use es Se Se 





IPW$$LD5 - Create TCB for Session Tasks 
InNPuT PROCESS ouTPut 


jcomPaR Lo 


PAGE 6.0 








Allocate real storage for TCB. 


If storage is aot allocated : 


A. Return TCB address of zero fese “>foa | 


fos} If storage is allocated : 


SIP] 





cateatadenae! A. Pormat TCB and pass address to > TCB 
caller. 


I 
[a rene sae 


To Callereee 


pe 
v 





+7 


NOTES { MODULE | LABEL | REF 1 MODULE | LABEL j REF 


This subroutine is invoked to 
allocate and format the TCB used 
to establish or terminate SNA 


essionse The task identification 

passed in an argument 1 ° 
Address of TCB is passed in Reg.15 
to caller. 
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CHART LF: IPWS$$LF_ - RJE,SNA LOGOPFP PROCESSOR 





SAIBLINE 


LF-2.0 


NOTES | SODULE | LABEL OES DUES | LABEL 6 REF ( SODULE | LABEL | REF 


“Phe RJE,SHA LOGOPP processor... |  #4| + | BIE, ee: morose peovensce hich 
consists Segnen whic 
ciate se the Folrow ing function: 
- Initialize work area, RPL, and 
message buffer. 
~ Clear the line in case of 
abnorrjal termination. 
- Send_a LOGOFF sessage to the 
1 ical unit. 

isconaect the session to 

ical unit. 

rite an account record. 
ce = Send a LOGOPP rgessage to the 
central operator. 
- Release the vork space of the 
SWA control block. 
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Iupur PROCESS ouTPUT 


| | fe}, 
e . 
a by IPwSssu 


Terminate an SNA session between 






































— 


POWER/VS and a logic unit. 


a ote ce ee er a cr a a a ee eee een ae Se 


TCS Clear workspace 


wen een ae een nn > Get the address of the SNA work area 
tat er Es Storage descriptor) in 
register 2. 


Indicate the length of the SHA workarea 
less the pend roe ise of bed storage 
descriptor cr 3. 


Set register 1 to zero. 


Clear the SNA workarea. 


Initialize the RPL. 
RPL 


| aes ett tt en > Hove the RPL into the SHA workarea. 


Set up pointers to : 
- ACB 
« ECB 


- Buffer 


| caminter Indicate the communication ID (CID). 
LUCB z 
| Sea Sis 
fos} Obtain the EOGOEE message for the 
logical unit 
pa natasha a If logoff is not normal : 


Calculate aessage index. 


Indicate abnormal termination in account 
record. 


ELI FE SERED SNE AN OPN 






Indicate normal termination in account 
record. 






Calculate asessage index. 






NOTES { MODULE | LABEL | REP ) MODULE } LABEL | BEF 
3 VI3I LOGOPP FORCED | | | | | | 


1V¥42I LOGOPP COMPLETED 
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Import PROCESS OUTPUT 










fou} Howe the message to the buffer. poe es 
set control character to indicate new wo----------- -- t= 
ine. 
Indicate the message length in the RPL. oe 


If ASCII is supported : 


- Translate the message to ASCII. 


i. one eres eeeey 


| 
| 
| 
| 
| 


- Turn on ASCII bit in the RPL. 





a 
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INPUT 






RP 


1 
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PROCESS 





Clear the line in case of abnoraal 
termination ; 


address first LUCB. 


If no abnorcaal termination =: 


En, 
| 


Reset the live pit in the BCB. 


Issue the VTA SBSe1 RE (oreo = 
CLEAR} macro to stop t flow 
asessages and rocoesbans” 


If the gessrouc reguest has not been 
accepted =: 


fose”> 06 
4 *y/ 


Blse : 


i, 
i cckcas > Call CHECK 
—a/ 


Reset the live bit in the ECB. 





Issue the VTAH SESSIONC dee rneces = 2°)T) 
aig permit the *LOGOFP PORCED 
essage. 


t BEP 


{SESSIONC | 
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OUTPUT 


ee ee ee ee ee ee ee 





ee a ey eae ee ee eee: ene 


Seatac 


nee te ee nce er mee mem rend 


ee ee er ee ere ee ee 


{ SODULE } LABEL 


| | 
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InpourT 


RP 


A re NE SC EN 


_| 


1 MODULE | LABEL 





PROCESS 






OUPPUT 





If the SESSIONC request has been 


accepted : 


Send LOGOFF nessage to the logical unit 


a 
< ececeee > 
—/ 





Lock the workstation using workstation 
lockvord. 


Reset the live bit in the BCB. 


Issue the VTAS 


E¥D gsacro to send the 
message to the 


ogical unit. 


If the SEND request has been accepted : 





fe 
< eoeceee > Call CHECK 
c—/ 


Disconnect the session betveen POWER/VS 
and the logical unit =< 


TCB 


Unlock the workstation. 





TCBEO 


an, 





. 
eee ee eee ew em) 


Reset the live bit in the ECB. 


Issue the VTAM CLSDST macro to 
disconnect the session. 


i 


If the CLSDST reguest has been accepted: 


eld 
Cacnses > Call CHBCK 
———/ | | 





| REF 4 MODULE | LABEL 


SEED 
CLSDST 


) SEF 
aa 
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IPWSS$LF - LOGOFF 
INPUT PROCESS OUTPUT 


Write an account reco 


cd 
Obtain the logoff time via IPwSRDC 





macro. 
R1 
Sakasi sano Na am on a Indicate the logoff time in th Ci Sssceneese= 
a adivate. thr argoet peeaioa ca 
Write the account record via the IPWSPAR 
macro. 
Send LOGOFF aessage to the central 
operator : 
Calculate message index. Ni Se a aes 
Issue the message_to the central 
operator via the IPWSWTO macro. 
Lock the SHA unit control block chain 
via the IPWSRSR macro 
TCB | 
TCBLO Peet ee eee seen nnn > Address current LUCS. ween nn nnn nr nae 


ec ae 
| 
| 
| 


Address corresponding SUCB. ae 


~----------—-------- Address next SUCB. ~---—---——-—--- 
a -----------—-——-----— Address first sucs. aa = == 


Reduce nurber of active LUCBfS. ween ter een eee 


If it is not the last active LU of 
workstation : 


~ indicate SESSION free. 


t 


| 
| 
| 
| 
{ 


— calculate workarea size in_ RO and 
point R1 to workarea, issue PREEVIS 





eco >$15 
es A 


v 


| arte Else, if the current SUCB is the first 
in ain ¢ 


- gmake the next SUCB first chain. re ees ene mere en 


[___s«d: w----—=----—--—--—---> Else, locate the previous SUCB. ~-------—-------—---> 


Dechain the current SUCB by resetting  aaneaetenenenentetatad _~ 
SURX (=address of next SMA unit control i-—--- 
block) in the previous SUCcB. 





} REP NOTES | SODULE } LABEL {| REF 


NOTES |} MODULE | LABEL : 
$RDC 10 The IPWSRSR and ZENSESE wacros use |PREEVIS SRSE 


registers 2 and 3. 


V14I REMOTE rre LOGGED OPF FPROK 
OWER ON luname. 


1 
P 
7aS IPWS$WTO macro uses registers 
0, 


e2an . 
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Licensed material 


IPw$$L?F - LOGOFF 
InPpUr 







| 
ie 


peeve ener sees ve 


SUCB 





#OTES 


The FREEVIS macro i 
0,1 and 95. ro uses registers 


The length of SUCB/WACB + tvo 
buffers is calcul : 
i? LOBS) ulated = WALN + 


| SODULE | LABEL 


Property of IBA 


PROCESS 


pono f 92 


LUCB | 


If there are any aessages left : 


- Indicate no messages left. 


- Delete the messages via the IP#SRHS 
macro. 


- Set up to delete subchain- 
- Indicate no messages subchain. 


- Delete the messages via the IPWSRAS 
macro. 


Else, 
get address of Lockvord in R1. 


Release Space of Lockvord. 
Release SUCB - WACB. 


Indicate ,length of SUCB — WACB + two 
buffers in R 


Get the address of SUCB - WACB in Reg.1. 


Issue the FREEVIS sacro to release the 
SHA workarea. 


gat scaxnss of logical unit Work ~- area 


C7 


Length in RO=Length of SUCB - WACB- 


Issue the PREEVIS macro to release the 
LUCB - Workarea. 


Indicate length of SUCB + LUCB®S in RO. 
Get address of SUCB in R1. 


ooeae the PREEVIS macro to release the 
Spice ce of the LUCB*S (number of attached 
LOU'S fror oni) and the SUCB. 


1 REF 


sRAS 
SRLW 0,17 and 15. 


KOTES 


The PREEVIS macro uses registers 


OUTPUT 








oe ees ere er ee eee ee ORD ame Oe a 


| 
; 


§ MODULE |} LABEL 
PREEVIS 


The lea ie of the SUCB + LUCB*s is 


calcala 
oun 


345732341) 


chece 


(si gfengen (SUDS) 





Chart LF 
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IPWSSLF - LOGOFF 
IWPUT PROCESS OUTPUT 


ee: 


Post the SNA work ECB. 






Set LOGOFF in Process off. salen teetaateniaentneeaneeneteeemmnetneed LUPF 


Set TCB - address to Zero. LRN SR hosed bce! 


Unlock the SHA unit control block chain 
via the IPWSRLE macro. 


Detach the LOGOPF processor via the 


ee TS RS SS NS SG 
: 
ere ES eT ag TSS ATCT =P NTE SCH NSN TUG SEN 


IPWSDET macro. 
Return. 
to POWER/VS task selection eo 
yet 
| - 
NOTES | BHODULE { LABEL { REP |} HODULE | LABEL { REF 





$DET 
' 


IPWSSLP ~- CHECK 
InPutT PROCESS ourPpuTt 


ecoe >From CALLING ROUTINE 
—/ k1 
a 


Get ECB address in register 1. 





Issue the IPW$WPC sacro to wait until 
VTAS completes the request. 


Issue the VTAN CHECK macro to check the 
completion status. 


Return | 


A ES TN SR A REE EE 
ee (oR NL EEE I 


| to CALLER eee 


ye 
-/ 
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CHART LH: IPw$$LH - RJE,SNA LOGON PROCBSSOR 


SAIBLINE 
LE2 
! I t I I 
GETLRCB INITINQ INQUIRE TESTUSER TESTBIND USBRCHAR | | 
Lad La5 LH6 LH7 LH8 LH9 
ql aL 
I t ' 
RESID PASSWORD USERIEPO LUNABE 
LH 20 LH21 LH 22 LH 23 


cn: I a GETWACB2 {tsrtsuiu~—SOs aoa i out j a REJECTLG 
| vel | an LH12 = LH15 Eth | 


NOTES {| SODULE { LABEL {| REP NOTES | HODULE | LABEL 


Each LOGON rogues ACBn @hen processing a LRCB, IPWSSLH 
LUnare, lengt L pa nocd ey locks the LRCB chain to prevent a 
is queued to a LRCB chain (LOGO! Sisultaneous update of this LRCB 





REP 


request control block chain) by by the VTAM LOGON exit. The LOGON 
the VTAM exit. exit, in this cane, chaise a new 

LRCB, instead of using a possibly 
Bach Loco bythe Logos is then available LEUB entry within this 


i 
pr ccogace: 1 | 


rocessed 

peat sie) *) Since TPaSsL 
a internal functions IPHSSLH is not reentrant, since it 

rite ise yrhay and not with the Proce ocesses one INQUIRE command and 

network, it iS rgost api ikety that he followin at ion with one 

the process is delayed b e SUCB-LUCB-—#ACB 

time-consuaing func fons! (except 

page faults). 


IPWSSLH works with one 
SUCB-LUCB-WACB structure, 
therefore it has to be executed 
straightforward before it can be 
reenter 
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LH2: IPWS$LH — SAINLINE 
ITwPuT PROCESS OUTPUT 


SUCB a 
bd . 
eee >Attached by SNA-MANAGER 


/ 





MAINLINE 


fort Reserve LRCB-CHAI. 
fren 
eccceee > IPWSELR 
—/ |—————— 


If not reserved by LOGOS EXIT then 
branch: 


ooo 73 [ou] 


Wait for locked resource. 


Process 1 LRUB. 


/-—. 
<‘ eecoee > GETLECB 
c—/ 





LH4& 


Unlock LRCB-CHAIN. 





Initialize SUCB/LUCB/WACB for inquiry. 


Dnt 
Saceeea > 


A- If SHA stop request set then branch: 









[Loguope 
TABLE 

[ ave | 
USER 

DATA 


GETVIS~AREA 


a Ele) 





RSSB 


fo7t Process VTAH INQUIRE command. 
eels — 


i». 
2 auscwe > INQUIRE 
—rva/ 
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LH2: IPWSLH - MAINLINE 


NOTES | BODULE | LABEL | REF 


1 A lockword is set to inform the SRLR 
LOGON EXIT that IPWS$SLH processes 
the LRCB-CHAIN. 


2 If LOGON EXIT already processes 

the LRCB-CHAIN itself, a wait in 
IPWS$SLH is issued, un€il LOGON 
BXIT unlocks the CHAIN. 


3 Etc. Surc 


Scan LRCBs for active LRUB, merge 
LUWAME to LOGON LUCB, release 
virtual space if 1 LRCB coapletely 
processed. 











ROTES { SODULE | LABEL j REF 
5 Unlock the LRCB-CHAIB. 


6 Sove RPL and BIB image to WACB. 
Initialize RPL and wiB. 


7 Issue INQUIRE comgand to get the 
session parameters. Issue IPUSHPC 
to wait until VIAN completes the 
request, check the RPL for errors 
and deactivation. 
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LH2: 


IPWS$SLH -— MAINLINE 


INPUT 





8 


9 


150 


GETVIS-AREA 


— 


aa 


wOTES 
Validate the user data for REID, 
LUWAME defined in PRAT (OPT) « 
PASSWORD (OPT.) and USERINFO. 
Test the BIND parageters, e.g. for 


ALTERNATE CODE, COMPACTI bs 


RUSIZB. Check Batch the 


2 they 
POWER profile. 
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Licensed Material - Property of {Bs 


PROCESS 


oureur 


Validate user data. 


/——+. 
< eeesee > 
coo 


TESTUSER 
La? 


Test BIND parameters. 


/-—- 
< eeceece D> 


TESTBIND 
c/ 





Lu8 


Serge PRET characteristics to SUCB-LUCB. 


Caveee> 


co 


USERCHAR 
Las 


{11} Get session WACB. 
tp, 
/esenee’> GETWACB1 
LH10 


{12} Get session SUCB-LUCB. 


CS eccuan's 


—/ 


GETSULS 





LH14 


A. If subseqnent logon then branch: 


coo 15 
[ee7h 


<i 


[13] Get work station WACB. 


if asstens 


—a 


GETWACB2 





LE12 





1 BEP ROTES 
11. «Get virtual space for one WACB. 
Leagth of buffers according to 
RUSTZE in BIND parareters. This 
for LOGON, INBOUND 
LOGOPF. One WACB is attached 
to each LUCB. 


12 Get virtual apace for the session 
SUCB-LUCBs, according to 
SESSLIS-VALUE. 


{ MODULE | LABEL |} REF 
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LH2: IPW@SSLH - MAINLINE 
INPUT PROCESS OUTPUT 





{ 1a} Initialize SUCB-LUCB. 
us 


/j—*. 
< eweccece > InITSOLD 
of L813 


[15] Initialize session WACB. Copy RPL, NIB, 
BIND from LOGOS. 


a 
/ssveee"> IWITWACB 
LHW 


Request SNA-HABAGER to attach IPWSSL¥ 
for OPEEDST processing. 


oo 
2 scaees > 
{17} Post work ECB. 


If not all LRCBs processed then branch: 
ped dy 
74 y 


Return. 


To POWER/¥S TASK SELECTIONece 
pe 


of 





GETVIS-AREA 





aca ee: {20} Error processing. 
/—_.. 
ee SUNT AE < eeccce > REJECTLG 
LH16 
RASB 








NOTES { BODULE |} LABEL j{ BEF NOTES } SODGLE | LABEL | REF 
14 Initialize the SUCB-LUCBs. Storage is freed using the PRERVIS 
: . macro, and rgessages for the ; 

15 The WACB obtained in step 11 is central operator are gueued. Phis 

used for LOGON processza in routine is entered yen a GETVIS 

IPWSSLN. The WACB with e i or a VTAA request fails 

SESSPARM INQUIRE LOGON BIB/RPL is erroneous user data or 

merged to this #ACB for OPHDST parameters are det 

processing. stop state is indicated. I 

cases the logon reqees w 

16 Attach IPWS$SLN to establish the rejected via CLSDST. 


session. The session related 
control blocks SUCB-LUCBs-W#ACBs 
are set up. IPWSSLH is reentrant 
to process one or more OPNDST 
requests in parallel. 
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L84: IPWSS$LH - GETLRCB 
ImPUrT 
ooe SFroe 
SuCB 
SLB --+-----+-- —-—--- ~~ 
LRCB 


a oe ee ne ee ee re ee ee 


or rn ee penn 


imal 


[os] 


SLR 


lial 


>LRCB*Ae 


LECB®p* 


= 


WOTES 


If SWLR contains all zeros, no 
LRCB is chained. 


Each LRUS within LRECB contains a 
es pore (Last) which is set to 

when a filled with 
data by LOGOM EXIT. 


A LRUB entry contains the LUNAHE 
which requests on, and the 
length userdata, éntered with 
the’ logon The LUNAME is 
moved fnto. t 4 ATT (LULU), and 
the meseage | length is sav in the 
LUCB (LUCD) 


L 
| 
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PROCESS 





| MODULE { LABEL 
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ourPuUT 


SAINLIEE 


GETLRECB 


If no active LRCB then branch: 


Scan LRCB for active LRUB. 








— 


t LUE 
geca OR ARE and leagth of logon sessage 


| 
| 


Deactivate LRUB. 


If not all LRUBs within 1 LRCB processed 
then branch: 


Release LRCB 


Sa to GETVIS AREA, 
update LRCB-CH 


Iu pointers. 


Return to MAINLIBE. 


1 REP WOPES 


The LEU, space is marked deactive 

(LEST de OW EXIT can use 

this entry within the LRCB again. 

If all LRUBs within a LRCB are 
the LACB c be 


Processe can 
released back to the GETVIS AREA. 


{ MODULE | LABEL {| REF 


The LRCB-CHAIB is updated. 


No LOGON reguests are 
then maini ite detaches peng eaza. 


Licensed Material - Property of IBM 


LHS: IPWSSLH - InITINO 
InPot PROCESS OUTPUT 


[ets 
Ad ° 
coe SProm MAINLIBE 


/ 





InITIvgQ 





Seeercoereea ~ men, c the RPL and NIB images to the work 
eat p= [et coer ee ag reer 


t 

a 

=z 

et 

@ 
ee 
09 veces 


— 
| 
| 
| 
J 


Initialize RPL: 


WARP (RPL) 
WANB (NIB) 


WIB address 


ACB address 


ECB address 


BIND-AREA address 


3 
n 
5 
| 
1 
( 
| 
4 
' 
i] 
| 
' 
' 
00 Co ones sone cees ! oe 00 00 cece cece se 
| 
i) 
| 
! 


BO-SIZE 


| 
\ 


vee | Initialize wIB: =------------—- 


09 00 00 PE 00 Fe Fe Oe OF OF OF OF On OF HF Os OF OF OF OF EF Ee OF OT TE OF 00 90 OF 00 48 09 OF REO Pe On OF tt OD Es OF OF 


i 


Set LUCB-address in user field of NIB.  ------------- 


Return to SAINLINE. | 





NOTES { SODULE } LABEL | REP NOTES t BODULE } LABEL | REP 
At asseably time a RPL ang 2 te 3 The LUEABE is accessed in e 


image is built within 3P6 GETLRCB routine and Stcced ie the 
These ipmages are cop to the LUCB. How the LUEAME is poved froa 
LOGON WACB*s RPL and NIB area. the LUCB to the NIB. 
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LHG6G: IPWSSLH — INQUIRE 
rIePurT 


| 


eee cr ee SR RT AS a ETRE EY SET PEA RT ATED SRSA RPE BEDE  TIU _FDP  IOTECEE: 





WACB 


RPL wenn nnn = Issue INQUIRE command. ~-------+----—- 


TCB 


= | 


eee erate 
66 00 08 98 e000 be 


prev oeeseecenes 


ee OO en eS YC ES ee A ERNE RE ea ee 


NOTES 





= ai Reset live bit in 103. Sone Ser ee et 


{ 
' 
i 
{ 
! 
t 
| 
{ 
i 
i 
{ 
' 
' 
° 
' 
' 
t 
1 
' 
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PROCESS ouTrPpuTr 


Prom HAINLINE 


ITeQUIRE 


' 
| 





OF 00 00 on 0e Fe 00 20 ce 80 0808 0088 CO 


: Issue IPW$WFC (wait for completion). 


| 
| 
| 
| 
L 


Issue CHECK command. 


Return to MAINLINE. 4 


To aero | 
e 
pe 





a | 
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The IBQUIRE command is processed 
asynchroneously by vran® Upon 
final completion, a Ess oO inted 
to by the RPL, and loca an the 
TCB, is posted. The traffic bit 
has to be reset before issuing the 
ee 


Boe initial completion of the 
Tigurite command (acceptance by 

TAS), the return-code in register 
Lf 3 is checked. 


wait for completion is issued on 
the ECB for VTAM*s final 
completion of the INQUIRE command. 
Upon final Comp Let 208 « the BCB is 
posted, and IPWS$LH gets control. 
he execution return-code in 
register 15 is checked. 


VSE/POWER PLM Part 3 


: 
| 


- a 
TE ee EEOEs issue sessages 1¥07I and 
Branch: [oe 
Zee] 
MODULE {| LABEL | REF NOTES [ wores  § SOD™LB | LABEL | REF | [wores,——— S™S™~—<“‘—*é‘—s*~*~™SCSCSC~SSNODWL | LABEL | REF NODULE | LABEL {| REF 
“@ A VIAN check macro is issued to. |CHECK |  #  #| | A VTAH check macro is issued to CHECK 


deactivate the assynchroneously 
processed RPL. 


6 Present a 
prt EaRga H IHQUIRE RTBCD, 


j 

= 
followed. by‘ne: anes 

INQUIRE =1¥06I USABLE TO LOGON LU® 

to. central operator. Mainline will 

call error processing- 


SwPCc 


ease Sete ea 
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L&7s IPWSSLH ~- TESTUSER 
Ieper PROCESS ourPer 


F L 
e . 
se Froa SAINLINE 








TESTUSER 
7 Z RV4 
Set r ex 14 to point to user data in 
BIND-AREA in WACB. Raennnnanannnn nnn Fo | 
Scan and validate RESOTE-ID. Sees 
Ct : 
2 cscaee > BESID $ 
: ~ L820 : 
BIND Hy 
PARASETERS & 
USER DATA Scan and walidate password. ween ence enn mnen i 
panne eee F jemppet 3 
eeceeee > PASSWORD s 
—_— : af LH21 : 
Scan and validate user data. wan 
/—— : 
< veal DSERI NFO 3 
. . LH22 : 
fos} Validate if LUWARE is alloved with this 3 
RESOTE-ID. wan ---- = 
t fe. 
} < =< LUSAKE 
| LH23 
Return to MAINLINE. 
To SAINLINEoee 
=] 
*y/ 
fo7} Error handling. 


Branch: [P-" 





NOTES i SODULE | LABEL } REF § SODULE | LABEL | REP 


seesage 
@1¥ 261 INVALID RESOTE-ID, PASSWORD 
OR LUBASE", 

followed by possaye 

*®1V¥07I UNABLE TO LOGON LU® 

is presented to the central 
operator. 


Reason code for aessage_ 1V26I: 
RC = 30 Invalid REMOTE-ID. 

RC = 31 PASSWORD error. 

RC = 32 LUWAME error. 





Chart Ld 161 


Licensed Material - Property of (Ba 


LH8: IP¥S$LH - TESTBIND 
Iuput PROCESS OUPPUT 


ae 
naa From MAINLINE 


TESTBIND 


Test mandatory bits for presence. 
Bnforce bits. 





Rann nn nnn nnn mnnnmnen df 02] Set LUCB indicators for: 


A. Print compression if in BIND. s<<ecere ses 





Be. Transparent PUNCH & IRS. ee eee ne 


Ce Print SPANNING. een nee 


Translation of print output a 
Characters hex 01-39 to hex 40 








If no ASCII set in BIND then branch: [ee-* 


Else set in LUCB: 


- No print coapression. 


- Bo transparent punch. 


~ ASCII print 4 card. er ee ne 
RSCB 
aa aaa a Check if RU-sizes fit into limits, and 
ran | ' 04 delimit thea to PRAT values if ' 
necessary. 


If presentation services data present 


then branch: 
ecoe >]07 
fe==73 [07 ] 


[Jj Sena Rarer eo mem epee Sete eee Set POWER BIND profile for presentation 
services. 


If compression and compaction allowed 
then indicate cospaction LUCB. 


set CARD/DOC. ; 
INBOUND/OUTBOUBD allowed in LUCB 


according to BIND parameters. 


Return to SAINLINE. 


To MAINLINEcee 


pet 
sf 
Error handling. 
fa0} aranch: fece >fos | 
us 
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LH8: IPWSSLH -— TESTBIND 
NOTES { HODULE | LABEL 


Pe on MOR An oer orn on a ee BE 
1édI£ Bangs toe bits are not “Y If eandatory bits are not setp pt 
BIND 4 valid, and OG Oy 
ad aaet is sities; ° Ear a ool bits 































REP wOTES {| MODULE { LABEL 


ce 
2D If the user specified the 
XYLATE=<YES rameter of the PRAT 
macro, then the pr t output 
characters hex 0 9 will be 
translated to hex 40. 
10 Present ings or 
sivaei Br BIND DATA® 









are set accor the 

specifications. Lo wit test thes 

with the OPESDST Suolvitt Variable 

bits cause and scat oF 6 to be set in 

the LUCB according t o the 

specif ications. PRESENTATION 

SBRVICE DATA ee omaitted in the 

BIN Cage fol ports POWER prof ile 
arting with byte 

iBr8L0b) of the BIND data: 


OSI ERROR OW Bimp® 
e1V0ct HARDEE TO LOsos LG® 
to central operator. 


Byte { Hex. Value 





RRRPNNNe seaweed 
DUNEWHmOVOWNOUE 
SCEOOCOUCNOOH0 
SCOOHO00GmOCOwm 


ize for PLU and SLU is, if not 
® enforced to he’ cs which 
BUsee of 256 bytes 


* 
wi 
tt 
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LH9: IPWSSLH ~ USERCHARB 
INPUT PROCESS ourputT 





OSERCHAR 


CONRG SuwS 


Po) te —-----——---F 0] nove date ana tine into suce and roca, 9 1--———-—--—,--— Saeed 
SUCB < 
| 


LUCB 


Saas 


RACB 
Sloe ee ee ee Get user-defined characteristics from 
the PRET table entry in the RSCB, and 
serge therz into the SUCB. i ry 


Initialize device list, classes, sessage 
index, forras~- in 80ch and LOCB. 2 -——-~-=---—--— — 


0 00 02 00 08 08 On 0008 Re de 0d 0F On oe 8 Ee Hs oe Ot 90 


l 


Return to BAIMLINE. 


To MAINLINEeee 


§ MODULE } LABEL | REP § SODULE | LABEL | REP 


on a 





164 VSE/POWER PLM Part 3 


Licensed material - Property of IBM 


LH10: IPWSS$LH - GETWACBI 





INPOT PROCESS OUTPUT 
oL 
ece >From HAINLINE 
/ 
GETWACB1 
GETVIS AREA R0 
aoe an a [ot} Get wacB space from GETVIS AREA. SEER ame oh 
Lt 
SNCB 2 
: then branch: eee > 
LUCB : 
LUBS s 


Clear space to all zeros. 


R15 { 
Return to MAINLINE. 


ae 


To MAINLINE 


“i 


« 
“ 


Brror handling. 


[3] 





| 
If GETVIS not successful (815 not 
equal to 0) 
06} Branch: ooo 


eee Oe ce A a RS TS EP SSSA SASS Se 

fmm 

! 

' 

4 

! 

' 

1 

' 

i] 

| 
EN I ER I I RS SAMO Se BERR 


Tt 
| 


NOTES 


HODULE | LABEL j REP 
This WACB is attached eo snes LUCB 





NOTES | SODULE | LABEL | REF 


ive UNABLE TO LOGON LU" 
1s presented to the central 
operator. 


! 
and is used for LOGON, I 
and LOGOFF processinge The ate 
is obtained froa the WACB pool, 
and the but for aize is seconded. to 
the pedeestes RU-size, geen st 
in the PRAT and in the 
parameters. | 
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LH11: 
IsPurT 


IPWSSLH - GETSULU 





GETVIS~-AREA 


ne eee ee ee wee we 


| 
LUCB~LULU 


LUCB 
LUCB 





PROCESS 
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ourPur 





SAINLINE 


GETSULU 


zt no SUCB/LUCB exists at all then 


branch: 

cy 
Scan SUCB-CHAIRB a= check if RESID 
already logged 


If REMID already exists then branch: [ove ’> 06 
Conpute length of GETVIS-area for new 
SUCB/LUCBs. 


re ee ee ee ee 


Get space and clear it. 


} 
Cn 


suca 


Return to SAIRLINE. 


to mates 
np 


of 


If all LUCBs in use then branch: 


BHerge LOGON LUCB into free LUCB 
LUCB 


and return. Luca 


Error handling. 


Scan LUCBs of this REMID for a free 
LUCcB 





NOTES 


1 ~Upon Lents Ce tose SUCB/LUCB-CHAIN 

by aoe ina IPWSRSR macro, SHFS 
the SNCB contains the address 

of the first active SUCB. If SNPS 

is zero, no SUCB exists at all. 


Check “1b Gr! Locou so if 
REHOTE-ID boon sueB is already 
eoaged one: Date Pp eoapker e 
SU oT UCB-WACB *Structure has to be 
obtained from GETVIS area, and has 
Fo be initialized. If alread 


oaged on, only the LOGON aay has 
os e merged to a free LUCB of the 
REMOTE-ID. 


The length of the SUCB/LUCB peste 
is_computed according to following 
rules: Length of one SUCB, plus 
Tengen cs of One or sore LUCBs. ape 
RUA LUCBs is defined wit 

the Spislinvparsastar in the baat 


macro, and set into the RMCB. 


loo VSE/POWER PLM Part 3 


| BODULE | LABEL 





i REF 
SRSE 


NOTES ) MODULE } LABEL 


4 Get the SUCB/LUCB ace frog the 
GBTY. arose aad cleat the space 





| REP 


o hex zero. 


n the LUCB chain for this REAID 

fin as free on free UCB is 
d ica when LUP1 = OFF. 
or th REBID are 


a 
“fates 
apieds the LOGON request has to 


7 Unlock SUBCB/LUCB-CHAIN with 
IPWSRLE macro. 


8 Free the 


reviousl 
for rhe © 


obtained apace 
out tRO ND/LOGOPP WACB, 

using t . PREEVIS-sacro. 

=1vV061 UNABLE >TO LOGON LU" 

to central operator. 


ee | 
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LBt2: IPWS$$LH - GETWACB2 
INPUT PROCESS ourPuT 





GETWACB2 





LOCB 
= momen mene nnn ae prea Get space for one WACB from GETVIS area. ------~—----——— 


if GETNIS not successful (R15 not equal 


) then branch: 


Clear space to zero. 
fou} Chain WACB to SUCB. 


200 0c 20 tem 


w 
=z 
Q 
w 


Pret tovesce 


' 
1 
1 
| 
i] 
i) 
t 
i] 
' 
00 e808 0008 90 08 00 OF O90 en ee et ne HN Ee 


Return to MAINLINE. 


To aaESPTAESS: 
pe 


*_7 


ib) 


tf —CS&Y ececncacee wae lebe soe | Brror handling. 


FJ 


: 
| 
| 
[z] 





Branch: ate, 


NOTES 1 BODULE | LABEL | REP NOTES 1 HODULE | LABEL j§ REF 


This WACB is attached to the SUCB, Free the previously obtained 
and can be attached to any LUCB 


" = D virtual apace for LOGON/INBOUND/ 
within this workstation. It is LOGOFF WA 


a B and SUCB/LUCB using 
then marked to be in use, and can the PREEVIS macro. 


be used by the session to process Present message 
interrupt inbound requests. "1V06I UNABLE TO LOGON LU® 
: to central operator. 
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LH13: IPWS$LH - INITSULU 
IwPoT PROCESS ouTPeuT 





as [Eble SAINLIBE 


INITSOLG 


anata eteeeteaenenearated —-->}01[ Move LOGON SUCB/LUCB to Session 
jt pra 103 sare toe 
>LOUCB | 


eeerceee 


| 


Set first LUCB active. 





Chain LUCBS to each other and to SUCB.  —-----~----—-------—> 


O04] Obtain real storage via IPNS$RSW for the 
workstation lockvord. 






SEFS SUCB 
>SUCB™A® | suPs 
be eee Chain SUCB on top of SUCB/LUCB chain. (eer rs | 
SUCB*B* { 


fo Return to SAINLIWE. 


To HAIHLINEe® ¢} 
iy be 


oa 


*,/ 





NOTES | MODULE { LABEL | REP 


1 The length for the move is the 
length of 1 SUCB plus 1 LUCB. 


Each LUCK has a Bost ESe to its 
SUCB, and each LBUCB has a pointer 


NOTES } BODULE } LABEL | KEP 


SRSW 
The new SUCB is chained on top of 
the SUCB/LUCB CHAIN, using the 
COMPARE and SWAP instruction. 


to the next, and a pointer to the 
é he first LUCB 


revious LUCB. For 3 

he preysous pointer is zero, for 
the last LUCB, the next pointer is 
zero. 
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LH14:2 IPWSSLH - INITWACB 
InPour 





NOTES 
The LOGON WACB contains RPL, HIB 


and the BIND parameters. This WACB 


1s copied into the session WACB 
for OPNDST processing in IPWSSLNe 





PROCESS 





INITWACB 


Copy LOGON WACB into Session WACB. 


fo2} Chain Session WACB to its LUCB. a a a a es 


Return to MAINLINE. 


To MAINLInECee} 


OUTPUT 







RPL 


ast ie 
*y/ BINDAREA 
_———————— ee | 
$ MODULE { LABEL | REP NOTES ) SODULE } LABEL { REF 
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L815: 
Iupor 


IPWSSLH — ATTSSLN 







04 


[3] 


SS SE ea nm a SE SE SS CSE CYP SUPE Sy SGP SU PSPS ASOD a-Si Deh AO-SSEYNAD- GE 


ROTES 


The SUCB contains a paaase uot 
outbound card/print | asta t 

which is indicated he band 
data. This suamar 2 used 

check in the SHA-— allicEa if here 
is at least one session bound 
which allows card or print 
outbound data flow for a 
workstation with a SLD concept. 
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PROCESS 


{ MODULE | LABEL |} 
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OUTPUT 


MAINLINE 


q card rint data flow 
3 S6CB. 


[ops ost zoe tion 


re re a ree re ee re ee 


Set ®REQUEST FOR LOGON® to info 
SWA-HABAGER to attach IPWSSLH to. this 
session. 


ee ee ae etc ete en een ee ee ee 


Set select byte for this LUCB to °S*. 


Clear TCB address of IPWSSLH. 


Return to BAINLINE. 


+f 





REP NOTES } MODULE { LABEL | REF 


3 SHA-BHAWAGER*s “LOOK FOR WORK® 
3 B nt aan - oe that 
major scan arguge icates a 
has to be 
13245 of | of the 


be 


ap action for this bd rors 
started. Further anal 
action bytes in the 
Liate task "to 
0 is set 


Sean the a 3 
ttached. 
Locou 


I 
SHA-SANAGER wilt attach 
PROCESSOR2 IPWSS$LH to process 
Stage 2 of the LOGON process. 
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LH16: IPWSS$LH - REJECTLG 
INPUT 


| 5 


1 


r 
a ly 
a z 

| T cenemtmemeteaaehastienteen daettminestnmttatetieteaaianl 


' 
H 
| 
' 
' 
H 
' 
| 
' 
t 


O0 on oe oe 80 Oe tom 


ee NI TS NS LE NS te TS eT ST A TT ED 


HOTES 


RPLPDB2 [{ X*OA* | x*12° 


In both cases do not issue a 
CLSDST reguest to VTAR. 


RPLATNCD | x*10° x*14° | 


PROCESS 





' 

' 
v 
o 
= 


02 


[s] 


03 


ou 


[2] 


eee eames 





B 


Ce memmataamtanah 


MAINLINE 


REJECTLG 


If 


~ CLSDST in progress or 
~ USBR LOGIC BRROR indicated in RPL 


then branch: [ese * }06 | 


Close the session via VTAM CLSDST 
reguest. 


Wait for CLSDST completion via IPWSHFC. 


If CLSDST is o.k. then branch: [p=" 


Present error message. 


Return to SAINLINE. 
To MAIBLINE** =] 
e 
Veet 
ka 


| AODULE | LABEL NOTES 


2 
3 
| 5 Present message 
$1V07I ERROR OW CLSDST* 
to central operator. 





OUT PUT 


ee SO ee ES SP FOS SN TRE SY SP SPD I OT SO SSS HIT ET SO ST TS 


} MODULE | LABEL | REF 


CLSDST 
| | $aPFC 
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ay io 


LH20: IPWS$LH - RESID 
INPUT PROCESS ouTPpuT 
job. 
eee >From TESTUSER 
ed 
| | RESID 
WACB | 
BIND~ARBA ae If REMID is not nuaeric then branch: [eee 
SUCB | 
suUcB 
SURC Sonn n nnn nn annem nnn nna [OZ] If length of RESID not within ranges 
then branch: rca -> [SURI 
| [e=-"3 07 : 
/ : 
: TCB 
fo3} Set REMOTE-ID in character and binary : 
i—!t forrat into SUCB and TCB. were ene i——--—> {PCRI 
RMFR Wes Be cceciae =>} If REMNOTE-ID not within ranges for 
amaa } 194 SNA-RESOTE-IDs then branch :? 


Pree oe ner ones oe cees 


1 
= 
[s] 


[3] 


ooo 
oO 
~] 


Branch: 


ee 
wm 
im 
ie) 
w 








NOTES 


5 This entry contains all 
information specified in the PRST 
macro, and is used for further 
checking of PASSWORD and LUNAA&S, 

and to Set up the SUCS/LUCB with 

the user characteristics. 
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mack, save it 


Return to TESTUSER. 


Error handling if invalid REMID. 


| REF 


RACBPT& 
ss Of RESOTE-ID entry in 
for later use. 


To TESTUSERees 
e 
=3| 


oy 


a SO TS TTT NS ES EE RSS SEES ENE EIT ca TA CS Te SO A NT RSS SP GI = GP H Ra an SEAS-TM STOEL NEERS EEA HID 














NOTES 
7 Present error rgessage in TESTUSER: 


§ BODULE | LABEL 


1¥26I, RC = 30 
1WwO6r 
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LH21: IPWSSLH ~- PASSWORD 
IwpPpur PROCESS ouTrPuT 





PASSWORD 
WACB B15 

BIND-AREA If no PASSWORD entered, set its length | -~-----------—---—--- [fo 4} 
eae Seen to zero and branch: 


cic 


R15 


ae 


Compute its length. oo = 





[03] If no PASSWORD specified in PRAT macro 


then branch: 
ice 


fd sneececcicecscoteescs: 


If ngee entered PASSWORD does 
maine eagtk of specified PASSWORD then 


branch: 
Ft) 


WaACB 


| = seeneclaocnce a pee! I WORDS then b: : 
BIND-AREA | =~ 2 fos} £ no matching PASSWORDS then branch 


— ray ca 


RACB 


—$§| 


reer 
b.. 00 ee e090 on oe te 


| 
| 


Return to TESTUSER. 


CE ET TRE ny EER REE GET ET RASTER STR A REELS SOOT SEE GSAT ES Nef CCL ETP PTFE TPR 


To TESTUSERece 
qie 
Sy 


Error handling, invalid PASSWORD. 


Branch: jose 06 


ET EE GS NT ET RY II 


OY Aa EN Ree ge PR TO See Rr A SS NSS EET A FP Ea SS SA PP Se GP-S re ENGIN SCS eg ERS CRAP GSD SS PLP ED GPO 


ee on ee cgrrere ee ene een nen tps ae mr a peers nec AP i AN SGU AFD SAIPAN TE GR tp PS SN eh SD AP aeale 
wm) 
ta} mm 
~s| 
gic 





Z 










NOTES 4 HODULE | LABEL | REF 
7? Present error message in TESTUSER: 
IWz61, RC = 31 
1V061 


| SODULE | LABEL 


REF 
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LB22: 
INPor 


LUCB 


WACB 


LUSERDAT 


WACB 


BIND-AREA 


2 


174 


LUUL 


ae Cg ee ar rc OS Se ec SP 
ere ewererenenns | 
t 
1 


IPWSSLH - USERINFO 


ee en we ee ee ee 
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OUTPUT 


TESTUSER 


USERIBFO 


Initialize user information field in 
LUCB to *"blank*®. 


If no user information entered then 
branch: 


fove user inforrgation with a maxinus of 
16 bytes to LUCB, translate to upper 
case. If more than 16 characters 
entered, truncate to 16. 


eee we ee wee oe eee rene 


Return to TESTUSER. 


To TESTUSERece 
> 


< 
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LH23: IPWS$SLH —- LUNANE 
Input PROCESS OUTPUT 





PTESTUSER 


LUMARE 


RACBPTR 


If no RSCB table entr inter t 
LOWAKE string then br neh: en 


coy ice 


>LUNASB-String 


LU1I/LU 2/L03 Scan LUNAHE string for a match with the 
es LUSABE stored in Lucs (LULO) . 


RE Sf SET TE Si AOA CS RI HRT LIP ee SIO GR 


LUCB 


= | ta If no patching LUNABES then branch: Ey 





Return to TESTUSER. 


To TESTUSERese 
e 
ype 


+)’ 


Error handling. 


SR ED gn NRE a PR OE SE OI SOS 


[ot Branch: coe fos | 


BOTES } MODULE | LABBL | REP HOTES | SODULE | LABEL {| REP 


4 No LUNASE checking required for 5 Present error ressage in TESTUSER: 
this REMOTE~-ID. | 


1V¥26I, RC = 32, 
WwO6r 
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CHART LM: IPWSSLM - RJE,BSC LINE MANAGER 


Channel End 


LS-~3.0 


Task Creation Shutdown Signoff 


LS-2.0.1 LA-2.0.2 LB~ 24.0.4 


Channel End as i Diagnostic Channel End 
Disastrous Failed Logging 1 Onat Check ni . 
error Exception 


La-3.3.3 La-3.1 LS-3.3.1 L&-3.3.2 









Channel End Channel Bad 
in Control in receive 
aode aod 

La-3.2.1 


e 






Channel End Error 
in Transa it Logging 
node 


LH-3.202 LS&-3.2-3 La-2.0.5.1 
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IPWS$SSLM - Line Manager Hainloop PAGE 2-0 
Inport PROCESS OUTPUT 





eee SFroa TENS SEE IPWSSBR, IPWSSCP 
i—/jcalling phase. 


La TCB 


Set line manager ECB off. SSS 


t 
‘ 

' 

ws 
e 
Ld 


j02| If any channel end occurred: 


/-—-. 
< plaice Channel End Mainline 
’ L8-3.0 




















Se See ee o> Process all existing LCSs for an 
103] activity: 7 , 
| feseeee> LCB Scan 
T we ew enn oes = 
nailed \ ? LB-2.0 
{TCRS woo - 
See ee enema . : 
: thee ne , [e=+" 
re If line manager has to detached = 
Beeslis 05} I£ no LCB has to be released: °°>107 
5] 
: Por all LCBs to be released: 
: PE ptamee sntetvat is expired release 
: Wait till next time posted. 
: [-=="3 [or J = 
i-——------->} 08] If no LCB has to pe released: sag 
Por ali LCBs to be released: 
If tamer interval is not expired, 
timer-interval. 
Release LCB-space. 
Detach line manager. 
NOTES [" norss ©} MODULE | LABEL 4 REP | BODULE | LABEL jf REP NOTES sores t—‘“(CsSCSCtCiCi*S ROUTE | LABEL =| REF SODULE | LABEL j REF 
1 The Line manager event control LOO 4 “@ If PEND was given, the line |) °° °&24|) J PERD was given, the line 
block is swatChed off. manager has to be detached, 
indicated by the Tce Sea *rcTT, 
2 If any channel end occurred, the which sight not be Xx 
buffers are queued into a 
channel-end~Chain by the channel 6 SRLU 
appendage routine located in the 7 pane “manager wait can be annulled La10 SuPs 
over nucleus. 
Rte channel~end-gueue has to be OY eee nine) end appenda a2 
pocessed first order to keep ~-compmand processor peneee 
e line busy. 
After the channel end has been -last active task for line 
processed for one LCB, control is stop/signoft. 
given directly to LCBSCAR to 
execute any activity for thas 9 $57H 
line, thereafter the control is gly 
given back to LMOO. 10 top bolh pcre ee are peracess. after LA2O0 DET 
3 Process the chain of all existing cepanisdes:'s Closing all lines and 
LcBs for any gorarttr =, Returns an indication in the TCB. 
either £0 LA10, 
still a channel-end coer | | 
processe or a line-close request 
is outstanding. a ee a TE | | 
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IPWwS$SLH - LCB Scan Sainline ; ; PAGE 3.0 
Input . PROCESS ouTpoT 





eee >From LM-3.0 and LA-3.2 


Lca es 
LCBTQB fore tt etme tet rere ree If_timer-interval expired: 
" iz call BA to issue 170. 
LCBACT aoe Test for any activity requested for this 
pegt tox aay y req 


if not: S207, [08 
epee If PEND KILL to process [p= 3 [05] 
pa reveners = If task creation request: 


faa - 
pated task creation 
La-2.0.7 


If shutdown request: 


' 
' 
{ 
Semen) 


P semeapays ° 
picdechey Shutdown 
La-2.0.2 


If task stop reguest: 


Zescaon . 
biclvataied g Task stop 
La-2.0-3 


~---->}]07} If line close request: 


it wana e 
pala line close 
La-2.0.5 


If line start request: 


20 00 OD oe OF OF 0000 OF OO 00 09 0088 0000 00 00 00 08 90 08 OF 09 OF 028999 OF OS OFT ED Oe HF Oe DOs 00 Or OF 08 09 08 Fe OF 08 Be 88 HF Cem 


| 
[3] 





f--——. 
< since g Line Start 
LA—2.0.6 





If LCBSCAN called from channel end, LCB 


reset return bit and go 
LCBFLG1 
To ee 
. 
= 


7 





: 7} 
: 7; 
p-----> | 10) If new channel end occured, go to 
: process 
3 | To LB-1.Qeece 
: ° 
— =] 
- ff 
——y Vv 
i-----> Get next LCB if available. [ooo 73 01 
If not, return. 
To LB-1.0cee6¢ 
=] 
af 
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IPWS$LS - LCB Scan Sainline PAGE 3.0 
NOTES { MODULE | LABEL TES it OLE | LABEL ff BEF REP NOTES {| BODOLE | LABEL | REF 


1¢9 “}) The 1/0 is Started immediately to | | °° °&+4;} © imgediately to 6 Task stop is set after , LSA 
fee. he line busy. transaission is completed 
LCBSCAN 


all activities are indicated in 
LCBACT. If no activity is to be 
perforrmed LA checks next LCB. 


A Reader or writer task has to be 
created because an ENQ was 
received or output is available. 


Shutdown is set to st the line. 


Line st is set b nof£ LS40 
roots? ron 


When LCBSCAN was called fr 
channel end processing LA returas 
to that routine. 


If channel end gccured during ao 
processing . his event has to 
proces first. 


LCB Scan pr esses all line ; 
control b. s and returns to line 
manager pmainloop. 


Arter the shutdown routine has 

a fie ocessed, control is given 
rete: to the signoff routine, 
froa which return is given back to 
the main routine LBSC. 
If the gessage for the rerote can 
not be ageue er af outpot task 
waiting f sount-forms, or the 
reader task is still active 
return is made to LS40 and the 
shutdown routine is executed next 
time LCBSCAN is called. 





Chart LM 181 


Licensed Material - Property of IBM 


IPWSSLM - Task Creation PAGE 4.0 
IsPorT : é PROCESS ; OUTPUT 








(iniee atarnasteaoacentar, —-—) coe Pron L8-2.0 









ee -—-| : 
: $ Reset task creation flag. 
: i----- ? Reserve real space for TCB. 
Seer Ae ig : 
LCBREAL : : F 
3 ania I i : 
perirert ss (ladueenae eneats [o3} £ space available [e=0" 
DCTINST1 UEsen ioeaues 
! : : if no space available: 
DCTILST1 ara eae eet task crates on fail pit. 
ove line a ° ° 
DCT ILFRB eee -— assue local message 1078I- 






e . 
DCTIPFRA clear lane address in TCB 






eee 


To LE-2-0eee 







DCTIRCLS ! Seances lame : 
' rips 

DCTILCLS foro: —— Ap 
¥ 


DCT 1IPCLS 






Oe Oe oe geen sere ve eres oe tens 88 eee: 


LCSRMID --t --2---—— Initaalize ccoragon addresses for all 
: tasks. 
:  t-----> Find DCT for which a task is to be 
3 | created and set task mode in LCBLISO 
--I-—-4y 
ab 3——-— Bose forsas identifier and class list to 
a Get reader or writer address for task 


COPTER CE oe Be OD Te ET ED ORES Coes OO os FESO ee Ot ee ee BS Fe 


attach. 


Reset DCT start flag and initialize TCB 
fields. 


oe 
o °o 
wd! + 


{os} Attach this taske 





Retura 


to LA-2.0ccee 


> 


q 


Se ee re TEE NE tree Ere 
_ 
i) 





WOTES : { SODULE } LABEL | REP : NOTES 


The taskcreation bit is reset in TCREATE Search for DCT with DCTstrt flag 

LCB. on in te 3 DCT status byte and set 
£ . LCBLIBO flag according to task 

The length of TCB is defined by SRSW type. 

TCLN. Real space is reserved with : 

IPWSRSW macro. If no space is The class List is 

available register 0 contains to - Reade: 

zero. =~ 


t 
If register 0 is zero the task have classes. Class list delisiter 
creation failed bit is set in LCB, is r°ff® 
the line address is moved to TCB, 7 
the message 1078I is written to Por attach ister 3 aust contain 
the local operator, line address the module address to which this 
is cleared after message is task is to be attached 
written, and return is rmade to d 
LCBSCAR. The DCTSTRET flad is reset in 1st 
F : flag byte, fields are aoved froa 
Get DAB an class list pointer LCB to Tch and registers are 
addresses for cogaon routines. saved in TCB save area. 


Attach is done wia attach macro. 
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IPpwWSSLA - Shutdown 
InPor PROCESS 







St. 
nae 8, ral 


e re 


e 
mee momen Soom ees 
t? r] 


a operator, 


(ee een ie If not signed-on, go | 
: If aie eee can be sent to remote e273 [5] 


PaGE 5.0 
OUTPUT 





aye 


~——------} [03] Get asg-nusber to be sent. 


80 oe 0 ve ee ne F980 Geen 08 os ee ee eee: 


Queve msg to resote terminal. 


£6 Tock oper eyaor EQJ, issue asg 1817 


If stop~code not PSTOP &O0J, 
set reguest to stop-task. 






Reset shutdown request 
set signoff-request. 






Return 


' 

| 

| 

| 
Be eo 





ROTES | MODULE {| LABEL j REP 


2 The reason sight be: 
STOP SSG has been entered 
PEND KILL fas been eeatered 
task creation failed 


tirze-out occurred 
gwsg already queued. 


If no task is active, 


SHUTDOWS 
innediate the §S 
rout tine, blcatse 2 S igheee 
aissing @-g- line-err 
occurred airing the prepare CCR. 
SGA 


Following messages are sent to the 

renote termina 

if renote terminal sent SIGHOFP, 
R17 is sent. 

Ta the other cases asg 1216 and if 

19008 was complete gSg 1818 are 


If reaote terminal sent SI morr or 
time-out occurred, a 120 

sent. (but only if signon vas 
conplete). 











NOTES 


If the stop-code is PSTOP EQ) and 

a list or punch task is waiting 

for a moan -foras reply, the 

messages are not queued, but are 
ueu ° Bor before the tasks are 
inis 


{| MODULB {| LABEL REP 








A ne age for the, docel 2 operator. SHUTD10 [SGas 
as only issued 

been eitered. 2b ith Other cases 

the messages. are sent 

signoff routi which “is entered 

for PSt08. fos a tér this routine. 

For PSToOPe the tise nay be too 

jong, till the signoff routine is 

entered. 
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IPWSSLH -~ Task Stop 
INPUT 


/ 





NOTES 


If TCB address in DCT-entry is 
zero, then there is no ta to 
stop anyrziore. 


If no line error, no PSTOP KILL or 
no task creattion-failed | 
stopcode,tke message task is not 


to be stoppe ! 
reaote termination ressage 


184 


eoeeeeovested 


| 


in order to send the 


VSE/POWER PLM Part 3 


PROCESS 


La-2.0 


Reset task stop r 
reset LA into con 


auest 
ol sode. 


If ceader task is active 
and not yet stopped: 
set stopcode into TCB 
reset LA-receive aode 
set EOT-received 
post rdr task. 


oe Rovet output switches 


f gateut task active: 

set opcode into TCB 

af task waiting for operator 
set task dispatchable 


se 
post task. 


Return 





( BODULE {| LABEL 





NOTES 


3 If a task is waiting for o ator 
it aust be set dispatchablo- 


3 If atask is not waiting for 
operator it is posted. 


3 Point to next DC? by adding the 
out pat DCT length to the current 
address. 
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PAGE 6.0 
OUTPUT 







to LB-2.00ce 
pe 
-/ 


| SODULE | LABEL REP 


t 
TSTOP40 | 
| 
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IPWSSLH - Saignoff PAGE 7.0 
IspoT PROCESS OUTPUT 


Leb 





COMREG 






calling routine 
Lea] If still any task alive, go see 73[i0 ] 


t : Reset signoff-reguest. 





LcB 








{ 
1 
| 
vs 


103] Queue msg to local operator. 





| 
B 


Hove job date and current tire to 
acc t record. 


| ' 
Write account record to account file. 
Queve message 1R03I for local display. 


SSeS See SS ae ee poe ae Delete all Messages from remote message 
gueue for this Tesote-id. 2 


3 Be 

ee ee wd 

! — : . 

fp rrarerre aryl a Se teeees reac, En 


set reguest to send disconnect. 


——————_—____——__-} 
Set request to stop line ——--——_——} 


—— Return to calling routine 





pes cece ced 


to LH-2.Qeee 
7 


‘“ 


«a @8 















NOTES { HODULE | LABEL j REF BOTES { MODULE | LABEL | REF 

1 If anything to send {list, " SIGNOFF 5 The account record is written to SPAR 

Or message} nothing is done the account file usang 

the next time entered. IPWSPAR-wacro. 

Messages 1RO&, 1RO7, 1209, 18 16, 6 The message 1R03I is gueved for 3GAH 

1817 are queued according to the local display using the 

stop-code, as well as asg 1818. IPWSGAM-macro. 

The communication region address 7 «If re cagect bab are gueued for this SGNOP ZO {$8AS 

ote they are deleted b' 


is get via the COMRG-sacro. The 
42> ate is rnoved from the COSEEG 
o the account record part of the 
LCB. Phe current time is get using 
the IPWS$RDC-sacro. 


rea 
getting and deleting using IPWSRES 
@acro. 


8 Por a switched line the request 
for a disconnect sequence is set. 
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IPWSSLH - Line Close PAGE 8.0 
Iwpor PROCESS ourpuT 


La-2.0 





Reset line close request. 






IOBCCB pL ee ee errrenecnres 
CCBSTAT 
LCBSCOD 
LCBNEX?: 






Vv 


Reset C.E.-appendage routine. 


| 


| 
! 

shes iadeivavereee 
J 









Feder erereseececenge 




















| 
Aes, gsue wher P78 Svc to a ai 
: ssu ° weue pend in 
G 3 I/o0*s. eg Pe 3 
i--2 -------~ If no PEND KILL nor line not > 
: operational: t ! 
: reset line bus > 
: set teqvest for disable 1 4 
: call BE ad y 
: wait for 1/0 completion. J 
: If line to be restarted, return 
3 to LB-Z.0cece 
: e 
: =: 
vw 
BRREGRET SI OF day for Loggins 
: s—. 
: < akahlG Error Logging 
: ‘ is LE-2.0.5.1 
cat 2 
CALC 2 J tte mre i—--—-—- Dequeve this LCB from LCB chain. 


Queue message 1802I for local display. 


Unassign logical unit. 


Set up timer-interval. 





Chain LCB into fo-be-released-chain. 


LB-1 a] 


7 


oo 


BRERERERERE 


Return. 





NOTES j MODULE | LABEL j REF 
Sessage 1R02I is queued for local Lc50 SGA 
dasplay. 


WOTES {| HODULE | LABEL | REP 


The channel-end appendage routine LCLOSE 
is no longer used. The 1/0 request 
is handled in-line. 


If line busy flag is on a SVC 25 
(BALT I/O) is isSued as long as 
the PUB indicates that an IA is 
Still queued. 


yf the line 1s operational a 
isable request is set, line busy 
flag and annel end appendage — 
flag are reset, the 1/0 monitor is 
called to handle the disable 
request, and a wait is issued for 
request Coapletion. 


The logical unit is unassigned SULP 
using IPRSULP-eacro. 


The LCB work space is not yet $sta 
released, but it is waited till 

all _ other components which sight 

still use this LCB have finished 

their work et us hope, this is 

the se after 30 seconds. The LCB 

is released imn LS mainline after 

this time has elapsed. 


Return is to LN mainline. 


End~-of-day is indicated in LCB and 


BRRORLOG ‘ee executed to write 
statistic record to system 
recorder file. 


The LCB chain is scanned for that 
LCB to which the current LCB is 
Chained to. The LCB which is 
chained to the current LCB is then 
chained to the LCB found- If the 
current LCB is the first in chain 
the next LCB is made to first in 
Chain by storing its address in 
LCB chain anchor point (CALC). 
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iPw$3SL5 - Error Logging PAGE 9.0 
IsPuTt PROCESS 





LCB Banana nan, [zh 
t e 
CCBSTAT 8 Jrorwrreccc—- —4jeee >From LM-2.0.5 
IoBssso ' ———y : / 
t : i----->/ 01} If neither unit check nor unit eve 
IOBPLG? apes aap 4 exception: 4 





If no sense information available: fe-e/> fos ] 


If sense information does not [eee “>fow | 
indicate timeout: f 


If timeout: 


PRISISISISI SINISE SII 
VI 
oo oe ee oe 
! 
{ 
Vv 
B 


return to callereee 
re | 


*/ 


. 
: 
: 
: 
: 
: 
. 
3 
: 
3 
Ps 
3 
: 
: 
° 
3 
° 
3 
° 
: 
Pg 
: 
: 
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. 
: 
. 
> 
. 
: 
: 
= 
Pg 
: 
. 
: 
° 
3 
— 


: 
° 
: 
. 
. 
. 
: 
: 
> 
° 
. 
° 
: 
. 
: 
7 
. 
. 
. 
. 
. 
. 
. 
. 
. 
rs 
. 
: 
° 
: 
: 
: 
° 
. 
= 
: 
: 
: 
° 
> 
. 
. 
° 
. 
. 
. 
. 
. 
. 
: 
. 


i 
1 
FPO oe 00 vn Oe Ok on On Oe ne eee DE ee eee en ae 


~---->] 04) If this error occured Ist time: ooo [05 J 
increrent terminal error count. 
maximua: 


If terminal error count equal to fooe > 0s 
—/ 


If terminal error count below aaxinmus: 


return to callereese 
e 
= 


i 





TCB 


—— coca 


~-------> 05] Hove reqasred fields from LCB to SYSREC 
record. 


foo] Reset terminal error and retry count. 


Write record to SYSREC fale. 


{os} Waat until record is written. 
Return to calier. 


return to callereee 
7] ‘| 


NOTES } MODULE | LABEL { REF BOTES | SODULBE | LASEL | REP 


Unit check and unit exceptiam are ERRORLOG The SYSREC record is part of the EL50 GETPLD 
indicated in CCB status byte. TCB. The area is cleared and laine 


and terrinal s cific inforrgation 
If no sense in graation is EL10 is moved from LCB into the record. 
prssher - ae is UC or UE a In addition PUB inforaation and 
disa er. eae is occered for counters are moved. 
whisk a a OS YsREC record has to be 


written. Terminal error count and retry 


count are set to zero. 
Timeout is not handled as error. 
The record is written to the 


If the same goror condition sore recorder file using SVC 44. 
than once only the error count is 

increased. If the error count has Rait for coaphetion is done using 
reached the maximum (250 iBifuPcrescr e 

cont inuous bh Tap of same type) the e 2 

SYSREC record is vritten. Return is gade via register 14 
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IPWSSLN - Line START 
INPUT 


d 
free 8 20 08 ve 80: 


-_— 


Pret 00 ce ce ones ehenee cee 
‘ 
f 





WOTES 


The line start indication in 
LCBACT is set to zero. 


d ication 


The line initializition 

is set by IPWSSCP (comaan 
processor) which reserves 
workspace for the LCB when a 


PSTAR ine command was given. As 
long as no PSTOP line is_given The 
LCB is re-initialized only after 
signoff. 


The line table is scanned for the 
entry for this line. The entry ais 
moved into the LCB. 


The feature byte 1 indicates ASCII 
or EBCDIC wanted. the 
Contemp ond ing table is soved to 
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PROCESS 


LB-2.0 


Reset line start indication. 
If initialize line not set b ooo 

comsgand processor: 7 7 | 
Reset initialize line indication. 


Bove line table entry (PLINE) into LCB. 





oad ASCII or EBCDIC table de ing on 
ine feature. pestony 





Initialize LCB fields. 





Initialize DC? fields. 
Reset LCB Pields. 


If it is a switched line 
set st 


at HOP sequence regue 
set prepare request for leased line. 


Call I70 monitor to handle 1/0 request. 


aa =e) 


Return to LCB Scan. 


SOTES 


LCB_passowrd and 1/0 related 
fields are initialized. 

The DCTs are initialized with 
default values. 


Various LCB fields which are set 
at signon time are set to zero 


The tst I/0 request for leased 
Lines is a prepare | wence, for 
switched lihes it is 4 NOP 
seguence to allow timeout. 


REF 
LSTART 
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LNEDOSB 


} REF 


LSTART10 


LSTART20 
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IPWS$LH - Channel End 
IgPor 


J 


| eee 


| | 
Id 

| 
(=) (2) 


Pet 0 08 0 pe 00 co ee OP 00 06 


0G OF OO 08 OF 00 0008 CP 00 Fe 00 09 Oe HF OF OF 88 10 Pe OF BF HF OF £0 G0 CF Ol 00 08 Ce sn OF 09 08 OF OP OF OP OF NEE CP Se RD 


. 
| 
| 
| 
| 


B 









BOTES 


The value from IOBNEXT is move to 
TCBQ and IOBNEXT is set to zero. 
Return is to Ls00. 

If IQBLCCW is zero the address of 
the first CCW in in is stored 
into IOBLCCH, Otherwise I[OBLCC# 
oints hind the 
cw and tes are gabte: 
rom the vaiue and stor 
TOBLCCH. 


? F ; 
pad el Uk Boge specif ied 
Unit meek ond oe 3t exception are 


indicated in CCBSTAT, disastrous 
@rror in CCBSTAT+1 


an 


2 with PSTART 
3 set in LCBACT. 


PROCESS 





PAGE 71.0 












La-1.0 | 


Reaove LCB from queue. LcB 




















If channel end appendage reset for this | IObM BIT 
LCB, return 4 
IOBLCCH 
to La-1 Oece 
=3| 
*y/ 
Calculate last executed CCW address. 
If trace option set: 
i? eseeees 
pide Diagnostic Logging 
LS-3.1 
If unit check, go 
To LH-3.3.leee 
=] 
*,/ 
If unit exception, go 
To LB-3 322000 
=] 
<7 
een —t e 
pia Channel end Saanline 
La-3.2 
LCB 
Reset line busy flag. LCBFLG2 











If signoff request, go LCBPLG1 





To ioe 
*y/ 


the 1/0 st indicated in LCBREQF is 
(ea Sythe P70 Sontton al 








Set fl a 1 
Set i a LCBSCAB called from chaane 


To LE-2.06¢ 


HOTES 
L b £ is ali t 
after cekanel eat. Beers 


The branch is done directly into 
the signoff routine to avoid an 
annece: ry 1/0. 

All activities during norpel 
channel end or error handling 
result in setting a new I/0 
reguest in LCBREQP. This request 
is translated into the 
corresponding CCW chain by the I/0 
won itor. 


The flag f 
force that 
current LCB 
activities. 


oc LCBSCAN as set to 
rowtine to test the 
y for new 
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IPWSSLE - Diagnostic Logging 
IwpPut 


output bfr 


input bfr 


counts 
DCT-flags 


ce seovees 
| 
i 


00 08 06 02 cone eees tone 





NOTES 


1 get address_of trace entry to be 


filled via IPWS$GTE-nacro. 


Nove trace oEtty agent £36 
concn. addres; e@, re ated 
cB and last executed reguest 
ether with CCWs into trace 


on ry. 


2 


IPWSSLS ~ Channel End Saanline 
XNPOT 


LCS 


LCBLINO Leen! 


ae ae a a ee ee eee 


ROTES 


If transaission was Sore 
retry counters are re- 


Receive rode is indicated in 
LCBLINO field. 


rect the 
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PAGE 12.0 


PROCESS 


OUTPUT 









L5-3.0 


Get address of next free trace entry 


f 
1 
vs: 


Move CCWs and related CCB into trace 
area. 


For all really performed CC¥s: 


ite CCW: 

gate and pret io prises oon meet pas ace tten 
i 

data, if available. a: 


Update all other fields with inforaation 
t of LCB. 


' Return 


NOTES 


Process executed CCW and test for 
read CCl. 
If yes, move data fron. read CCW 
into trace gaty: the £ irst 16 
bytes and the LS 6 bytes read. 


If not alli executed CCws are 
processed for this trace entry get 
e@ next CCW within CCW chain and 
return to 3 


( MODULE { LABEL | REP 
BSCTRACE | $GTE 


} MODULE | LABEL 
TRFUIO 


| @EP 


° 


PAGE 13.0 
OUTPUT 


PROCESS 





Be 


errr 









From LB-3.0 





LCB 


LCBRCHT 


Reset error counts. 
LCBTIAC 


> 
If LS im receive mode: 


[ ee 
< iichetc Channel End Receive Node 
i LB—3.2.2 


IP LS in transait rode: 


Lavseen > 


y, Channel End Transait Hod 
cS LB-3.2.3 


L® is in control pode: 


C068 £9 00 5000 00 Os 00 Oe oe Ot On oe ee tt a8 OF OF: 


[ 





_ a oe 
J sacha Channel End Control Hode 
LN-3.2.1 


) BODULE | LABEL 
CHAAIN 


NOTES 


Also Transait node is indicated in 
LCBLI#B0 field. 


§ BODEULE | LABEL REP 


If neither transsgit nor receive it 
must be control rod 


Be 


3 
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IPWS$LA ~ Channel End Control Sode PaGE 14.0 
IuPUuT PROCESS OUTPUT 





ece >From LS-3.2 


meee ene nn eee pe > If BQ received: coo” 
. 109) af Eecase task a2 Deady received EOT: —/ 
- set request to send BOT. ek ae TD, 


- if reader task not yet alive: 

- set request to create task 

- set west to start rdrc task. 
set receive sode on 

reset input buffer in use 

set reguest to send ACK. 


eee oi eet, 


to geet] 
nhs 


=f 









00 €0 00 00 00 on oo 08 tees 
ote 


ee en eee 


poo FPO] He ast ogueste was 
- disable or 
- EOT-disable, go 












LCB All other events are inval id: 


update retry counters. PENS | | aanener eenthea 
LCBRTRY eer ens ee et eewon, rt retry Limit not yet exceeded: 
- t BuQ ed 


wir ERTIEREOEAY 
- set request to send BOT. : 
eee [i 
e 
e 
of 













To L&-3.0 
3 | 


else go to handle disastrous error 


fo LA-3.3.3ee0 
=| 


*y/ 


Reset discontinued output. 
Reset BeQ-regu iced. 
Set transmit sode on. 
Set request to send TPD. 


Set retry counter to 0 and return 


To LB-3 soe | 
ne 


«a 











NOTES 


S The uest to send TTD is set to 
keep the line busy. Normally it is 
overwritten by the request of the 
Fupning task. ; 

Ifa sk has been interrupted 
due to discontinued catpat and the 
bar tex aust be resent, the task is 


PT? a task is waiting due toa _ 
mong tt oree yeaeee , the task is 


set forget 

If nothing can be sent (no asg, 
no list- nor puna- gutput is 
available {porged in between)), an 
BOT is sent. 










WOTES { NODULE | LABEL 


1 If an 2NQ was received the CHCERQ 
terminal has input. If the reader 
task 1s not yet created task 
creation and task start is 
indicated. The mode is set to 
receive and the ENQ is answered 
with an ACKO. 


& If an invalid response was CHCERR 
received the invalid response 
count and retry Count are updated. 
If the Spper retry limit is 
reached the error is treated as 
unrecoverable line error. 


received, give the terminal a 
Chance for an BQ by sending a 
short HOP. 





t REP {| BODULE | LABEL 

































Return is made to CH10 within the 
Pome end routine to start the 
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LCBREQF wanna =n, Joos daa 
LOBRESP 3 
i—— 


LCBRBUP 
LCBRTRY 
LCBBUPSZ 
CCBRCRT 


H 
' 
1 
Va 


Free ce 00 oe ce oe se oc ge cree ee ol 


t 

' 

§ 

y 
(Von 


DCT IRTCB 
LCBFLG3 
LCBRTRY 


9008 00 0008 FF 00 88 OF ee Od or et OR ee ee ee ee et el Ne te eee na 


Init 
ae 


| 
| 
| 
| 


NOTES 


If the last request sent was 

WACK the terrinal sust res ond 
repeated toc ch aged WACK by 1/0 
repea orc oO 

nobit ted (OF cha ing it it teen Y 
Snwalad response. 


zee valid status message from 3781 
“3° Jiskette. ovarsi oe 
= Lin 


va e 
hal other status re 
treat as status ae ssage fine" 


a D or _V¥ message has already 
once received, it will be 
converted to a Z nessage. in order 
to handle it asa disastrous error 
and bring the line down later on 
(in the @nit check/time-out 
routine or the unit exception 
routine, i.e. when either an £OT 
has been sent or received). 


If neither WACK sent as last 
poleg bapcfg nor status sessage 
reCeived it must be tert. Text 
starts either wath STX or DLE-STX 
strane arent sode). If text does 
ot rt vith these BSC 
Characters it is an invalid 
response. The last byte received 
(bu Eo Size sinus residual count 


ba Babe buffer start address) 
or ETX. If Boos of 


both Peceived it is treat 
invalid response. 


as 
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PAGE 15.0 


LA-3.2 


If Sete received | 
- aeuaeat to send WAK again 
else 
~ retry last request. 
i 
i 
t 


If TID received, request to send 


If a walid status ssg from 3741 


received, request to send WAK. 


If invalid text received 
set request to send HAK. 


Set request to sent WAK. 
Update transpaission count. 


If reader task exists: 
- post reader task. 


If reader task creation did fail, go 


To LE-3.3Jec0ee 
pe l 


Vv 


Set buffer in use flag 


To ee | 
ye 


ng 


Set retry count to zero. 


Update error and retry counts, 
f retry limit exc ead, go 


To LA-3.3.3e0ee 
ye 
“¥ 


To LB-3-Oece 
=s] 


=f 


/ 


else go 





{| BEP NOTES | BODULE {| LABEL |{ 


7 If the reader task is available 
‘ 


REP 


CHRWCK 
st bit is set. The reader 


the reader task has 
to A FF oRRS So ue to a PSTOP, an 
EO? w t for a 3741 
tera inal and an 97 for all other 
terminal types. 


If the reader task cannot be 
created because there is no space 
for the TCB an EOT is _ sent to 
abort transmission. If task 
creation is not yet. Fan ished the 
buffer in use flag is set. 


Phe buffer in use flag ind icates 
mon itor € 


‘o 
€:17e he reader has 
the buffer and reset 


CHRTXT&O 


CHETXT30 
that tee 
WACK u 


s to send a 


rocensed 
is ft 


age 


If PSTOP has been entered, the 

reader has to be stopped pea 6 

sending an EOT end set 

receive-wode, but for the’ 2780 

terminal only an RVI is sent. 

The retry and the invalid response CHRERR 10 

cosse ore updated. If the upper 
try Tinit is not yet reached, 

the hert I/0 is started. 


If retry limit exceeded it is 
handled as an disastrous line 
error. 


CHRERE 20 
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IPWS$LH ~- Channel End Transmit Sode 
Iupur 






















LCBFLG3 
LCBXCNT 
IOBRESP 
LCBWBFST 
DCTILTCB 
DCT IPTCB 
DCTITCB 


irsupmarsoaoe, | 


poreres 


NOTES 


2 The transmission counter is 
updated for statistic purposes. 


Besides ACK valid 
WACK an 
with an EBaQ. 


The 
ACKO 
ack 


one expected. 





\ 
| 
ee eves a Be oom 


art tats ¢ peers alverestes 
ch rece i 
has to be’ checked to pe “the 
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PROCESS 








LB-3.2 





rae) 


If buffer is acknowledged 
update transmission count 
aoset tine ~ cst count 

BTx sent 
- reset buffer states 
- reset transait sode. 


i 


fe 


else 
- set r Pes eer to send TTD 


If reader task creation did fail, go 
- Posy o=c> active Pa task, 
If WACK received, 


To LB-3.3eee 
e 
Y 
fo LA-33ec0 
Fy 
request to send’ ENQ. 


OF Of 98 00 00 0000 09 UE OF Bef 0068 OH FE OE ED Fe HT OFF 8 OF Os C8 


f 
| 
' 
| 
' 
| 


Process BAK 

if no TED sent 
if buffer-r 
update regu 
else 

eyoene TTD 

if an output task active and 


not in pount-forss 
request to send short NOP. 


uest u 
st fron. Sutter request 


“v 
ee 
\ roa] If no BAK received, go eee) 





Set retry count to zero. 


Update error and retry counts. 


If retry limit exceede 
- set request to sto 
- set request to send EOT 

se 


el 
- set request to send BNQ. 


ad 
tasks 


| BODULE | LABEL { REF NOTES 

If a task has still poner ies to 
transait, a TID reque est is set 
until the buffer filled again. 


If the output task is waiting for 
pots pal (mount foras), it i5 not 


Set aest for EBNQ which is 
overwritten when NWAK was received. 


| BODULE | LABEL | 
CHI10 


REP 


re nses are 
and NWAK. WACK Pe cennontes 


CHX30 


CHX50 
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IPW$SLS - Task creation failed PAGE 17.0 
Inport PROCESS 


(zl 
e e 
bang From calling routine : | 
Set Pet bp to shutdown . ? 
{ox} set seit sode and no task active 


t request to sen a 50F 
reset ¢ mr creation ailed flag 





back to calling routineeee 
= 





BIPO-DIAGRAB LH-3.3 DaTEB - 11/03/81 


PAGE 17.0 
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IPw$SL# - Channel End Unit Check PAGE 18.0 
‘INput PROCESS ourrur 





sets | La-3.0 
LcB 


IOBsHESO 


| 
| 
| 
J 


If equips space. check [e-7 = 





———— = If time-out, go 








To LB-3.3.1. E 
re 


a 
‘“ 





Soman’ Process lost data, overrun oc datacheck. 





09 00 00 Ge 6 8 2G 00 OP OS OO oe 08 08 08 08 90 


}0a] Process intervention required. 


Log error on SYSLOG. 


Je : 
eoecce > Error Logging 
/ La-2.0.5.1 
To LA-3.3.3eee 
=] 


*,/ 





Log error on SYSLOG 
reset time-out count. 


2 axeuta °> Error Logging 
: : La-2.0.5.1 


fo sear 
e 
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IPWSSLA - Channel Bnd Unit Check Timeout 
rIspPor 


0009 00 00 co 20 Ot 00 coey 


| 





BOTES 


The timeout count is updated for 
statistic purposes 


ous unit checks are 
count If the limit s yet ore 
signon , ( (20) is reached the line is 
stopp: 


If not eon con crore node. cosespaoas 
Piaieca akter Bignon a3 peaches (30) 

pped- otherwise the 
sence ee rccnatL e@ 


is checked. 
oecer in transmit or 
a the. last executed 
dias di 


ie LA~-3.3.3}. 
ereere pode and last 
is_a read: 
Mgt a * oad response, 
ats read only request is done, 
e 


sent 
In all 4 Pe cases the request is 
retried. 
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PAGE 19.0 


ourpuT 


La-3.3.1 





Update timeout counters. 


| t 
et signed-on 


o send, go Poe ee oy! 
To LE-323-1-2000 
=3| 


If reaote not 
and a message 


else set request for short MOP. 


A 
To LS'~3. “ail 


v 


Process time-out, if LA in transait or 


receive rode. 


To La-3. “ail 


If discontinued output ELE ER 
and limit not yet reached 
request to sefd short nob. 
To LA~-3.0eee 
e 
ye 
else, go 
To acer | 
e 
jie 
*,/ 
If first time 
- set reguest to send £OT 
- set b EBuQ to be sent 


se 
if limit exceeded, go 


To LA-3.Qeee 
=| 
af 
else if limit execeeded, go 


To LE-3.3.1.2¢eee | 
= 
e 


taf 





NOTES 


® If the last request has been an 
= and a is set, the 
wall be retried fave times and 
tg the line will be stopped 
without trying “farther. 


If task has been stop in 
seantige, reset aisco Tauel 
output. 


+f nothin can be sent and the 
Lameoet i = is reached, the line 


stop 


{ REP | BODULE | LABEL 4 KEP 


CHECTOUT CRECT 20 


the CHECT25 


CHECT40 
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IPWSSLS - Start task 
Input 


weer een oe m= 







eee eneem 


| 
| 
| 


LCBPLG2 
DCTOTCB 
eee 


LCBPLG4 
LCBFLG2 


Ie | 





NOTES 


If the task has got a 
stop-code,the task ig 
made dispatchable 
waiting Eor Seered Bag 


osted or 
he task is 
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PROCESS 


ourPotT 


L8-3.3.1.1 


If severe st ‘ode Jooo"> joa | 

or severe 3741-status asg 7 

or task to be created 

waiting for nount fores,go 
cH 





If task to be created: 
set task creation bits 
set request to send ‘Short wOP. 





If task has been already created: 
aif task alread 1 
fi ndg request to ‘Send Fen 
e 
set transmit on 
set request to send PPD. 





If BOT received or 
arse request to seni Short BOP 


uest to send EOT 
ad BM 


set reguest to send disconnect. 


Return 
to LB-3.dccee 
or | 


BOTES 


{ BODULS | LABEL {| REF 
% The the kind of the disconnect TASKEO | 
sequence ee eto eat whether it is 
leased 4 lane or an EOT 
sent or not. | 


{ SODULE } LABEL | REP 
ead 





| has to be 


Chart LM 
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IPWS$LM - Channel End Unit Exception PAGE 21.0 
Input PROCESS ourPuT 
| LCB | LCB 
| eee ieee r | LCBLINO 
IOBLCCW w------- ~ z LC BREQP 
3 t-—---> If BO? received, go aes 
LCBTYP Saat aie 2 ae 
LCBLINO wennanenninn, i To cae TCB 
2: 23). 7s e 
LCBNSGI ao oe ye 
LCBOUSS ee 
t  fesi----- If LM as in receive sode:_ NIE TDES, 1) PEs 
Som we gore e—> - if dast processed CCW_ is not a read ; 
t 2 3 Eueeane for read only 
20: 3 reset receive mode aa aaa ae) 
Soo -e set EOT received for rdr = 
2 363 post cdg task | a > 
£3 bee if no 3781 tera inal 
s 8 eet request to send ENQ 
s- <3 e 
soos set request for short SOP 
is) <8 update time-out count. 
2 To sae | 
2: Pa 
ere pe 
2 *y/ 
ie, ean 03} If last processed CCW is write CCW: ene ~) i 
3 request to read only. TE 
: To see | 
2 e 
: ye 
z *y/ 
i-------- }04} If LA as in control mode: a oh 
: set reguest for short NOP. 
2 To atc 
a es 
2 ype 
: */ 
eee La is in transmit pode: 
reset transpit aode 
set request for short NOP. 
To LB~-3 .0ecee 
e 
pe 
=f 





NOTES { SODULE | LABEL j REP NOTES { SODULE j LABEL | REF 


1 If _ BOT received, it is treated as CHEEXCPT 5 If it is not_a 3741 terminal and 
a disastrous line error. component select is in progress, 
is posted . fet for a 
: e 


“rec is reset. 
If it is a 3751 terminal or no 
component select is in progress, 
the buffer in use flag is reset. 
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IPWS$$LH - Channel 2nd Disastrous Error 
Inpur PROCESS 


PAGE 20.0 





eee >From calling routine 
LCB | 


Se eS SS SS ee > If lLine-error already sets 


set request for disable CCw#. 


else: 
set request to send EOT 
Set lLine-error 
set reguest to shutdown line 
reset transgit mode and 
no task active. 
To Li-3.0ece 
e 
= 








NOTES } SODULE | LABEL | REF wWOTES } MODULE | LABEL § REP 


An error is_occured which is CHEDISTR 2 The tasks will be stopped in the 
gnrecoverable. The reguest for a shutdown routinee 

isconnect sequence set to stop 

line traffic. 
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CHART LN: IPW$$LN - RJE,SNA LOGON PROCESSOR 





1 t 


UPDTSULU LOGBSG REJECTLG 
LN? La8 Lag 


! H 
INITOPN OPENDST COPYCID 


LN3 LN4 LNS 


DEQSUCB RELSSG 





Lu10 Lut 
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LN2: IPWSSLN - MAINLINE 


IsPuT 









(3 


07 


oes 
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Attached by SNA Manager 


Licensed 


PROCESS 


MAINLINE 


Initialize control blocks for VTA 
OPENDST request. 


/-——.. 
< eeeese D 


c——/ 


INITOPH 
Ly3 


Establish the session. 


oe 
eceesee > 


r—/ 


OPENDST 
LS 


Copy CID into LUCB. 


os, 
< ececcese D> 


—/ 


COPYCID 
LN5 


Start data traffic. 


1 
en 

< eecces > 
| cc | 


spot 
LE6 


Present LOGON messages. 


io eccaen’> 


[ee | 


LOGSSG6 


Update SUCB/LUCB. 


Mecuave 5 


—/ 


UPDTSULU 
LN? 


Post SHA-MANAGER. 


DETACH. 


TASK SELECTION®*e] 
e 


If any error occurred during process: 


/—. 
< eecesce > 
—r/ 


REJECTLG 
LN9 


ee, 
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OUTPUT 


E 
) 


: 
| 
| 
| 


ylet 
+7 


NE RE OE TE TT EI 


owes \ ference mmo pan em me 
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LN2: IPWSSLN - MAINLINE 





WOTES 


Each_ LOGON oqnest is passed to 
the LOGON exit routine by VTAA. 
LOGON exit then allocates a LRCB 
where it stores the LOGON reque 
parameters. A request for IPXSS$LH 
is set up. 


SRA~MANAGER BeEscnes IPWSSLH, 
which retrieves 14 OW request 
and builts 1 SUCB a LUCB, and 1 
WACB to process the requeste A 
VTAM inguire is issued to obtain 
the sesSion parameters. The user 
data and bin ararmeters are 
Checked for validity, anda 
session SUCB, LUCBs, and WACBs are 
obtained for the igaanat anit y 
wick issued the LOGON request A 
uest for LOGON is set in he 
to B. SNA-MANAGER attaches 
IPWSSLN uae By cate fe stage 2 
of the Lo e@ session as 
CE eApTinpes” by using the OPNDST 
macro. Then messages to the 
central and remote Sperseees e-cre 
issued to inforrg of a sucessfu 
LOGON. The Buen 7ivee ate o Gpastedy 
and the ee coapiet 
indicated the uca. -fumally, 
IPWSSLN. Getaches itself. 


In case of any error on OPNDST or 
SESSIONC, a message 1s issued to 

the central operator. The RPL is 

then analyzed for the error code 

to check if the session has to be 
terminated via CLSDST. 


If an error occurs on the CLSDST, 
ho check reguest will be issued. 
Error testing on the check request 
1s not relevant. 


If it was a LOGON request from a 
multi-logical unit, and it was not 
the first request froa it, IPWSSLN 
takes no further action, and 
detaches itself. 


ite 


{| MODULE | LABEL 


| 
7 
ara) | | 





NOTES 


If it was a LOGON request from a 

Single iSgical unit or it was the 

first one’ from a auiti- Log ic: 

gait any, messages already queued 
x this logical unit (1.e., 

benadcaet messages) are deleted 

from the queue. 


| MODULE | LABEL | REF 


The SUCB is unchained froa the 
active SUCB-LUCB chain, and the 
space for the WACB sucs aA LUCB 
25 released. Then fpassuh detaches 


Set up address for VTAM save area 
and RB ke initialize BCB_in TCB, 


set LUCB address into WIB. 


had OPEDST is processed 
synchronously, the initial 
eptance is’ checked, and a C.L.- 

the sch ts nested, e 

checked. es ; 


coapletio 
and the RPL 4s 
If no error occurred, the CID of 
the terminal is copied from the 
RPL to the LUCB. | 
b : 


The SESS 


ON SDT request is 
proces 


asynchronously. 


Clear TCB address in LUCB to 
andicate LUCB is inactive, and set 
LOGON C.L. indicator. 


Ssage 
Woot REMOTE xxx LOGGED ON TO 
POWER OW lunage 
is presented, both to the central 
and rerote etait coe to inform thes 
about successful LOGON. 


A IPWSDET is issued to detach 
IPWSSLH and to pass control to the 
task selection in IPWS5NB. 


ne dgce the LOGON request via a 
CLSDST request, free space, delete 
queued he dsage. 
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PWSSLN -INITOPN 
PROCESS OUTPUT 





| INITOPH 


| 

| | 

— | 
| 

| 

| 

| 






>WACB | RPL 
RPL metre te en rn - NIB address. Serer ere en meee 
NIB i | 
---— - ECB address. SSeaSe sees =e 
TCB r 


BIB 


NIBUSBR 
NIBNDAR 


rr) | 
| Initialize WIB. 


=--~-------—--—------ - LUCB address. --~--+------—-~~------ 


$ 
BIND aleatathatesieienianeneieneteaeatannmates ~ BIND parameter address. aire ame haar airs 





| Return. 


To HAINLINESes 
Te 


o | | 
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LU4: IPWSSLN - OPNDST 
rupur PROCESS ourPpuTr 






for} Set reason code for aessage 1V061, in 
—J case OPNDST fails.. 


Issue VIAN OPNDST request to establish ‘aa | 


the session. 


— @ait for OPNDST coapletion via IPWSWPC. 


fou} Issue VTAH_ CHECK request to check for 
final completion of OPNDST. 


aes Bern annnn nn annnnn=-3f05] If error occurced on OPHDST or CHECK: 


[tosceee"> REJECTLG 
/ Lo 





| Return. 


to aaraLt4sss] 
a ee od 


NOTES | BODOLE {| LABEL | REF j; BOTES | MODULE | LABEL | REP 
2 Tne OPNDST is processed 3 A POWER wait is i i 
asynchroaaousl e An ECB will be on the 4a ta he posted. weer bah 


poeteds when VTAS coapletes the 
PNDST request. 
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LNS: IPWSSLN - COPYCID 





INPUT PROCESS dela 
or e| RS 
ets, 
eee >From SAINLINE eee 
(d | 
CoPpYcIpD 
>WwaACB | 





J 
ta] 
rw 


RPL aca aaeaias for} point to RPL. | 
LUCB < 


Be | La ol na : 02} Copy CID of tersinal from RPL to LUCB. ---------------------> 


03] Return. 
uJ 


| 





=i 7 


{| MODULE | LABEL j REP $ MODULE | LABEL | REP 


The CID of the terminal has to be 
known to POWER/VS, before start. 
data traffic is given. The CID is 
used by the SNA-SANAGER to 
indentify the session, when the 
receive any RPL is posted. 
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LN6: IPWSSLN - SDT 
IyPur PROCESS OUTPUT 


ica Prom MAINLINE 
spt 
WACB 


Set reason code for message 1V¥061, in 


t < , 

| case SESSIONC fails. fo ee ae WARTCD 
ice kR3 \ 
RPLECB 02} Issue VTAM SESSIONC SDT request to start x 
flow of messages and respofses between ee | 
POWER/WS and the logical unit. \ 








\ 
\ 
\ 


\ 


>TCB 
wr n—aoa----------~=-3]03} wait for SESSIONC completion via 


4 


IPRSHPC. 


Issue VIAM CHECK request to check for 
final completion of SESSIONC SDT. 


R15 
a | me mc ae mee enna eae a em | 05) If error occurred on SESSIONC or CHECK: 
[oceeeee > REJECTLG 
a Lag 
Return. 
To MAINLINEoee 
e 
Hi 
*y/ 


1 SODULE } LABEL | REF 





ET ST TTS SED LITO TOD TY CSS ae SA PS le Se SD AAD ETE TY SS SSSA te SPSS GH” | 


. 








NOTES | MODULE { LABEL | REF 


3 | | ‘am 





| ot 
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LN7: IPWSSLN - UPDTSULU 
INPUT 
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PROCESS OUTPUT 





rob, 
e o 
[eee Srrom MAINLINE 
—, / 


UPDTSULU 


Reserve SUCB/LUCB chain via IPWSRSR. 


t» , 
o vcseue > IPWSRSB 
—_/ [— 













ea Complete inforration in LOCB. 
LUCB <4 
A. Set TCB address of IPWS$LE to zero 
to gsark LUCB inactive. | LURT="0° 
B- Indicate LOGON complete. Se ere en meee > fuuso="1" } 
' 


C. Set SELECT byte. 





LUSL=*sS* 


Unlock SUCB/LUCB chain via IPWSRLR. 


/—. 
< eecose > IPWSELR 
amr 


foat Return. | 
Le 
To MAIBLINEcee 
=| 
| Ke 


{| SODULE | LASEL | REF } SODULE | LABEL |} REP 


ee ae | a OE 
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LLNS: IPWSSLN - LOGSSG 
report PROCESS OUT PUT 





ob 


e 
eee >From SAINLINE 


(1 =~ Locus 


2000 oe Cony 


r 


R14 
one a rene nm {or} Calculate address of rmessage 1¥09I in 
message definition sodule- or eee meen peewee [ff 
RY 


Yowremrem ty 


oF ? 
—/ 
{ 


Get reaote ID of logical unit. See nese een eee 


LUCB 
LUaB wana ann nn -- 


Ven eneee oer enre eraneverenrene 


Queue LOGOM aessage for resote operator 
via IPWSRMS. 


a mama 


do wassia S IPWSRAS 
a / 


fos} Return. 





ee ee ET eee 
Vv 
| | 
et CEES EN OR PEP 


fo2} Present LOGON nessa e to central 
operator via IPHS¥TO. 


Return to MAINLINBece 
s 
=3] 


“/ 


NOTES {| MODULE | LABEL j REF NOTES § BODULE | LABEL | REP 


Hessage Z $aTo 
groot RESOTE xxx LOGGED ON TO SNA-#ABAGER will find a message SRAS 


3 
ER ON lunagze. queued for the REAOTE-ID and 
attach a neazage processor to 


transmit the message. 
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LN9: IPWSSLN - REJECTLG 
INPOT PROCESS OUT PUT 





ee >Prom MAINLINE 
u—/! 


REJECTLG 


for} Present RPL status message 1¥07I to 
central operator via IPW$WTO. 


wis, 
e eaceae > 


>WACB 


fwartcp } Sete sn anata Hea la Pick up reason code for sgessage 1V061 
eee SEE EEEEAAIRIREEIEmenen al 


one Ps it to central operator via 








f-——’.. 
< eeecee > IPwSaTO 
| cH / Se ee 
WARP-RPL er ----->103} If error code in RPL indicates fore “>fo6 
| | CLSDST can be skipped: / 
ee a | 


a~~--->}04) Issue VTAS CLSDST r peace Wait for its 
| completion. Issue VIAK CHECK request. 


000008 re tees sem 


if 
' 
1 


If error occurred during CLSDST: coe > 


Reserve SUCB/LUCB chain via IPW$RSR. 


R7 ie 
Cy a exauns > IPWSESE 
co—/ SS eee ee ee ee ee en 
ciate aatacameaeaheeanmemnenad => 07} If LOGON froma single logical unit eee -| 
t | 97 | (Son t=) Or first ob OcOm from [-=-/ 
ao---2---------5 muiti-logical unit (SUN2=1) = 
| LOUCB < 
fos} set Luce free. ewe e na een wn eee > [meer | 
us | a 


Unlock SUCB/LUCB-chain via IPWS$ELR. { 


v 
n 
a 
aq 
w 





/—. 
<i eeoecsce > IPWSRLE 
COCO. 


00073173 | 
Unchain SUCB. 


f\—_——.. 


< po DEQSUCB bs 
oe Lw10 


{14} Release queued messages. 


f/f“. 

< eeceace > RELSSG 
4 ° 

< eecevee > PREESPAC 


———/ 
. LN12 ed 


{23} Return. e 
it j 
Return to aeeet| 
e 
=] 
KK / 
Present message 1V¥07I to central fee y 
[4] operator. 4 a jos | 
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L¥1 


[12] Release control block storage. 


[aes | 
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LN9:s IPWSSLN - REJECTLG 





NOTES } MODULE | LABEL | REP NOTES 
Boeeate for OPENDST or SESSIONC | | SuTo Te ued eicek aoGee Poke | | 
1 
wort ERROR ON REQUEST, RTINCD, sulti-logical unit, space for the 
FDSK2=xxxx, SENSE=xxx On luname. con vad vaccee For SES sone 
Ss 
because it is in use by other 
oer UNABLE TO LOGON lunage sessions on same work station. 
=XXXo 
| In this case only the LUCB for the | { 
If {RPLRTECD=16_& RPLFDBKZ=10) or | session in error is set inactive. 
LO a es RPLFDBK 2=18) no 
LSDST request can be eeauad . SRLR 
The CLSDST reguest is processed W on ERROR OM REQUEST, RINCD, { 
Soe oee cae By the initial FDB2=xxxx, SENSE=xxx Of lunane. 
acceptance b ¥TAM is checked, and 
if no error Rccurred, a IPwSwfc 
macro is issued to wait for final 
cospleyiob and a CHECK is issued 
after it. {f an error occurred on 
qnitaal acceptance, no WAIT and no 
CHECK will be issued. | | 
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LN10: IPWSSLN - DEQSUCS 
Ineur PROCESS OUTPUT 


: L 
e . 
=" REJBCTLG 









DEQSUCB 


& 


If SUCB, vhich 1s to be pachained, is 
pot the fir ian the active SUCB chain 
(SNPS does. not point to it} then branch: 
corioe 


>SUCB*aA® 
suux 


Set address which in its “NEXT SUCB 
POINTER™ into dies.* so o the SUCB poiumts 
now to SUCB@B", and SUCB®"A® is 
uncha ined. (Assure SUCBSA™ to be 


uncha ined.) we ee ence ene ae 


em 


Scan SUCB chain for SUCB to be 
unchained. 


Set ats SUNX pointer into the SUNX 
pointer of the previous SUCB. 


| 


sUCcB®Cc® 


Return. 


Return to salar | 
e 

jie 

-/ 
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LN11: IPWSS$LN - RELESG 
Inport PROCESS OuTPUT 


oh. 
ag From REJECTLG 


RELSSG 





fsom ___q|--------------------- If no message queued for this remote—id 


then branch? 






ps , : : SUCB 
Sr ee en ne ae —-?|02] Set active msg-chain to terporary delete 


1 Chatnn cr re a ree em ane > ee | 


Delete the messages for this resote-id 
via IPWSRHS. 


jer. 
< ececcee > IPWS$RAS 
—/ \—_—__—_— 









foal Return. 
[ anaes 
Return to rao 
es 
ype 
- / 
Vv 
ee 
NOTES § MODULE | LABEL { REP BHOTES { MODULE | LABEL | RB&PF 
| 1 Messages (i.e. from broadcasts) 2 These sessages have to pe deleted 


can be queued for a rerote-id, as 

soon as _ its SUCB is Chained to the 

active SUCS-chain. As the SUCB was 

taken out off the chain in routine 

DEQSUCB, no message can be queued | | 
tt 


any more. t 


from the message queue. 
3 $RaS 
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INPUT PROCESS 


[es 
pina From REJECTLG 


R? 

lssucs 
es eos 01] 
i 


ne ce 


Pe Dees asl oeo ene >}02] 


—- 1a) 


ines ee 00 00 20 00m 


De 


oe 
boos ee cece 


eee oe ee ee we we 


----->[05 


| 
| ca 





Release the real storage via 


FREES PAC | 
Obtain address of work station 1° Lockword. J _] 
t 


——, 


eoccee > IPWSRLY 
—_——/ 





Calculate length of stocage, of of Pd (2 
buffers, the length of which 


contained in the LUCB, plus 1 *Dasic ee oerae: 


CB). 


Obtain address of 106 08 /TRBOUND/1, 0GOPF 
yack gad release virtual space via 


Obtain address of work etarace ace for 
anrereupe INSOUND POR INBOUN 
release virtual storage via PReeVis. 


Calculate length of SUCB $ Gent as nuraber 
of LUCBS js contained in CB) 2 
release virtual storage via FP EBVIS. 


Return. 


Return to RESECTLGe*e} 
e 


ourTPuUT 





prot 
nef 
| BODULE {| LABEL {| RBF f NOTES { SODULE | LABEL | REF 
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CHART MP: _ _IPWS$MP_ - RJE,SNA_ MESSAGE PROCESSOR 


SAINLIBE 


SP-2.0 
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IPWSSHP - MAINLINE 
Input PROCESS ourpoTr 


oh 
eo Dattached by IPWSSSH 


SAINLINE 


Include the appropriate Fougines to send 
grouped messages to the logical unit 


ce ee ee ee re ee a ae She ee ee eee eee 





IviIt? 


Initialize RPL in SNA vork area for 
sending raessages. ips 


RAIN 


Retrieve and send the messages to the 


logical unit. 
Guam aP-4.0 


TERMS 


Release SNA work area and detach the 
SNA message processor. §P-6.0 





To POWBR/VS Task Select ionees 
ye 


“/ 
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IPpwSSaP - INIT 
Input PROCESS OUPPUT 





>From SAINLINE 





Ini? 
Obtain SNA work area which is to contain 
an RPL and initialize the RPL. 


Ce ee ee ee re ee wn neem ene ome emo 


(J 


Indicate the length of the SHA work area 7~---~-—-------—-----—— 
3 in register 0. 


! 


R 
SNCB 
R1 


3] 
a 


aa ce a aa ca Get the address of the WACB pool address ——--------~--—-----——-- 
in register 1. 


I 


a 


storage for the SHA work area. 
RP 


mie se meee womere mown --——>1021 If the GETVIS request was not 
td oz) successful: = 


control block via the IP8$RSR macro. 


| Lock the SNA work area_in the SHA remote 7CB 


Indicate SNA work area address in TCB. aaa annEinaEenteenemtemetmed PCBWA 








Issue the GETVIS macro to obtain virtual _ 
| 


Te | 


4] 
Ae] 
K1 

See eee enn errr re — ise, indicate SWA work area address in 


| 
! 
| 
| 


[a (WADA) | w-n- aan = >[03} Point register 7 to the PL/S dynamic ~----------——--------> 





a PSE FPA A PD NTS LY TS SE SE ST TI a Te 
1 
1 
| 
i) 
i 
1 
' 
1 
i] 
| 
| 
v 


| | Clear the SNA work area with zeroes 


eaddrees of work area Rena) s 
R3=length of work area (K0}). 


NOTES { MODULE } LABEL {| REF NOTES § SODULE | LABEL j REP 
1 he aErtis macro uses registers 0 GETVIS | | 2 The IPWSESR macro uses registers 2 | | SBRSR 
a 


and 3. 
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IPWSSHP - INIT 
INPUT PROCESS OUTPUT 


| foat Set the storage descriptor in the SHA 
NBHBE _ work area. 


Le 


Sove the RPL into the SHA work area. 


Initialize the RPL with : 





| [a (SNAC) I L SeaeReeeeiren eer ae - ACB Pointer | 
ee | | ae 
| A(WABF) l on an ae a ee ee een ee eee ao oe > - Data area pointer SY RPLAREA 
| fa(TCBEs) ] pe eer ----- | - ECB pointer wo +--+ -———--> [RR PLECB 
[7 
| | — 
| LUCB | | - Set RU length to zero ooo BPLRLEW=0 
| Luss aaa ie eras - Indicate aaximus baffer size Sommer tera t eee nna— => |RPLBUFL 
| LUCD Sh erttsess<e--= ~ | | | 
| | i { i—---> - Indicate comaunication ID wren n en en nn > [RPLARG 
——7 | | ae 
| | | - Do not affect mode of response flov r «| RPLRRESP=0 | 
| - Do not affect mode of DPSYN flow | RPLNFSYN=1 i 
| | - Do not affect mode of expedited flow [ eee $ RPLDPASY=0 
To MAIBLINEecs 
e 
ye 
| v 
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rePpoT 
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PROCESS 


Eble 


een >] 2 
1 — 
aa Sra GE, 


. 
ee a ee eee ee ee 





ee ee ee ee ee ee 


wee ewe we ee wee ee 


IST RIOISISIEOSI CIES aie 











TCBIT ; 
WACB | 
WABP w----------—--------- 

RD 


aD | 


il 


omen 
' 
' 
{ 
1 
' 
$ 
' 
$ 
t 
t 
| 
| 
' 
t 
t 
{ 
vs 


LUCB 





LUOO 
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MAINLINE 


SAIN 
Retrieve and send messages to the 


ogical unit 


ee ee ee er ee er re ee ee re we eee 


a ee ee ae re es en eee nem 


Point to the beginning of the request 
unit {29} - If console is Supported, 
insert NL control character fore tst 
ote Else insert PF to print ssg. om new 


Indicate that the request unit is not 
full : 


Point the "current® pointer to the 


beginning of the RU+) (after NL control 
character). 
Set message number to zero. 20 tem SSS seen sssses=— 


Initialize return code register 15 to 0. 
If the request unit is not full : 


ointer to the next 


Set the message 
Be PWSRAS macro. 


message via t 


Save the nev message pointer. 


If neither : 


- last message nor 

a reque unit, nor 
e no new reguest unit, nor 
e no stop condition. 


fos |} 
*y/ 


OP OO TO He Oe Fe 98 oF OF 00 00 OF 08 He OO 00 08 08 Fem 


eS) 


ee ee ee ee eee 


Else, point the *current* RU pointer to 
the next request unit. 


' 
' 
' 
i) 
' 
4 
‘ 
| 
i] 
J 
be cog 


Reset the live bit in the ECB. 


wee eee ew eee ee ew ewe 


Save the pointer to the POWER/VS save 
area. 


Peewee meee oe ee eee ee 


Get VTAM save area address in register 


Get RPL address in register 1. 


If list or punch output is not suspended 
for message output : 


Indicate begin bracket (BB). 


r 
: 


mr | 


Indicate end bracket (Eb) - 


=i 05 
[= *y/ 


Else : 


Indicate not begin bracket (NBB). 


camel 
oe eter voce 


' 
| 
t 


Indicate not end bracket (NEB). 


ourPUT 


RPLBB=1 
RPLEB=1 


RPLBB=0 
RPLEB=0 
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NOTES 1 MODULE } LABEL | REP NOTES } SODULE | LABEL | REF 


1 WABP always points to the 2 The IP#S$SRES macro uses register Saas 
b inning of the request unit 0,1,2 and 3. “9 


AB “always points to the last 


message retrieved. 

WASR indicates whether tne reguest 
unit is full or not (O=not full). 
WACR indicates the current. 
position in the request unit. 
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IPWSSHP - MAIN 
IsPuT PROCESS 
























If ASCII is required : 


Translate the request unit to ASCII. 


{oe} Lock the work station. 
reguest unit to the logical unit. 


area. 


If the SEND request has been accepted : 


- Issue the IPwSwPC gacro to wait until 
VPAS completes the request. 


the completion status. 


>fo7} If the regeegt unit has not successfully 
arrived at the logical unit (SEND 
request not accepted) : 


f weaeea 


Cro" 












Remove the temporary delete chain via 
the IPWSRAS macro. 





Unlock work station. 


NOTES | SODULE | LABEL { REF 
7 BRAP 
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Issue the VAM SEHD pacro to send the Sree ee eee enema > 


Reset the pointer to the POWER/VS save errr nnn en 


~- Get &CB address in register 1. ee 


- Save the pointer to the POWER/VS save -~---see eee nn 


areae 
- gst V?PAN save area address in register =----------------—-—— 
- Get BPL address in register 1. ea EL ETI 
- Issue the VITAM CHECK macro to check ee re me ere 


- Reset the pointer to the POWER/VS Save sewer r enn nn nnn 
areae 


- Porce CS for DPSY¥N flow on next SEND. <---- 


ouTPUT 





§ SODULE | LABEL REP 


SEND 
CH&CR 
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IPWS$SHP ~ MAIN 
IgPurT 





[ ener 


sociable ne tamardncnties 





eo ee ee on ee com 


Lusi 


PROCESS 


Ae 





--->[09} If an immediate stop is not requested : 


If the reguest unit is not full : 


Indicate the request unit is not 
full 


Insert the message in the request 
unit 


Insert NL control character in 
front of the pessage. 
Point current RU pointer after 


NL control character. 


Add the saessage froa the live 
chain into the delete subchain 
via the IPWSRAS macro. 


Update RU length in RPL. 


= 


Otherwise : 


Indicate the request unit is full. 


If neither : 


last sessage nor 


error condition, nor 


BB reject, nor 


inrgediate stop 


e 


Else return 


\ 


be 08 90 00 pe oe Oe eee etee te in 00 oe 0800 98 Se oe Oe Oe Be 


fo2 } 


aye 


to waar] 
e 
ye 





< 


1 
' 
| 


| 
i 


OUTPUT 
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IPWSSBP - aP 
IuPot PROCESS OUTPUT 































ERAP 


Check for a BB reject condition or check 
the logical anit Status. If the error 

situation can not be recovered, send an 
error aessage to the central operator. 


er ae a ae cee rr re ee ere ee ae een on oe eae cae 





Issue the IPWSRMS macro to add all 
messages in the pending BU to the live 
subchain. 






If the error condition is not a BB 
Eejects or not intervention required, or 
not a component not available = 


>11 
° 7 


If not INTERV. REQ. : 


Indicate BB reject in the logical unit en ee ee ee ern ee 
control block. 


Reset return code register 15 so that wee cena eee encore an 
the message processor wi be detached 
noraally. ‘ 

eee "> 41 

[r= . 
Indicate R8 not full. (oo 
Set buffer pointer. rere ee ee ever en 
Reset the live bit in the ECB. wee ee ee een 


Save the pointer to the VSE/POWER save Senet re en ee re enn 
area. | 


Issue the VTAM RECEIVE macro to obtain ert > 
the status of the logical unit. 


Reset the pointer to the VSE/POWER Save 9 ~---9e3s 9-9» 


area. 


If the RECBIVE request has not been 
accepted : 





Else get ECB address in register 1. Se ee eee > I } 


Issae the IPWSWFS macro to wait until 
VTAM completes the request, or a central 
stop is requested. 


NOTES | MODULE | LABEL {| REP | MODULE }| LABEL j REF 
SRSS RECEIVE SWFS 


S| 
@ 


a 


PS P< bd PS PS 
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IPWS$SP - ERMP 
Inport PROCESS OUTPUT 






































TCBTT =—_ sj wane ------------ == >{o5] 1£ LUSTATUS not received : 
—_—_——- S338 guy 2 central operator entered 






A. Point register 4 to the RESETSR RPL. i ee 
Hove the RPL image. Sennen 
Insert ACB pointer. ae eR 


Set compunication ID. ee ae eee, | 


Set mo external ECB pointer. ween nen ey 


Set ECB pointer off to get a 
synchronous reguest. 


i] 
i 
' 
i 
/ 


Save the pointer to the VSB/POWER. 9 --~------------------ 
Save area. 


Get WTAM save area address in pot en nn nn enn a, 


| 
| 
a | 


Issue the VTAS RESETSR macro to weccene— Se ee a 
force corgpletion of the RECEIVE t 
reguest. 


B. If the RBSETSE request was completed 
norrally : 
Issue _the VTAB CHECK macro to free 
the RECEIVE RPL. 


Set register 15 to avoid error  ateataatietatahatsienienteteetatenenaeaiaatetead 
gessage. | 





C. Reset the pointer to the VSE/POWER aheaathaasiaseaeseiataatnenetemnnanamaniteten 
save area. 


D. If the RESBTSR failed : 


~ Point register 6 to the RESETSR 
Beet i 
- Calculate message index. haatiaatarianientiesteateentemneainenatiomenes Iv071 


Issue the message. 


Indicate no more messages. eae ical ena a ee aaa la 
| | 


E. Return to 





NOTES | BODULE § LABEL | REF NOTES {1 SODGLE { LABEL 4} REP 
S Central Operator entered stop. RESET SR suTo 
CHECK 
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RP 
j 06] Issue the VTAM CHECK macro to check the s---<--<----------—--——> | 
coapletion status. : 
WACB 
RPLLUS Se r~----2[07} If the status of tne logical unit is not 
—————— H ok : 
BPLDSB wre wwe nn ao 
RP 
Set error return code. meen = 12 
ooo [a1 } 
cy 





RD 


aa =--~---------—------->f08] save the pointer to the VSE/POWER save 
area. 


Set no end bracket (NES) indicator. 
Indicate no data. 


Reset live bit in the ECB. mon re nnn ne ee ee anne 


Issue the VPAS SBND macro to send a 


Set no begin bracket (§BB) indicator. 
positive response. 
| 


Boeet the pointer to the VSZ/POWER save 
rea. 


NOTES { HODULE } LASEL { REF | SODULE j LABEL {| REP 
6 ISSUE aessage: CHECK SEND Surc 
1v07 


I ERROR OW request RTNCD, CHECK 
PDBK2 = xx,yYy 
SENSE = xxxx ON luname 
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InPur PROCESS ouTPUT 
RP : 
f } more rn en ———-—>} 09] If the SERND request was accepted : 
a | 
Issue IPWSWPC macro to wait for 
completion. 
Issue the VAM CHECK macro to check the 
| coapletion status. 
LUCB 
| Reset possible signal. aetna “—~---> {LUSG=0 


(1] Return 
to HAIBeee 
= 


t HODULE 1 LABEL | REF ) SODULE | LABEL } REF 


ee | SwPC | | | 
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IPWSSMHP — TERS 
IsPutT 


TC313 


i] 
| 


! NOTES { MODULE | LABEL | REF t 


ewe wee en oe ee ewe eee oe 


Licensed 


PROCESS 























TERA 


Reset the logical unit to the any rode 
if the session will continue normally. 
Release the SHA workarea and check 
there are any unrecovered errors. 





me 


If the session will continue noragjally 
(i.e. RP = 0 and LUBB = off): 


Reset the live bit in the ECB. 


Issue the ¥VPAS RESETSR aacro with 
CONTINUE ANY. 


Reset the pointer to the VSE/POWER save 
area. 


Ae If the RESBTSR request vas 
accepted : 


Issue the IPWSWPC macro to wait for 
completion. 


Issue the VTARM CHECK macro to check 
the completion status. 


wOTES 
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OouTPUT 


{ MODULES | LABEL | REP | 
RESETSR | $HPC 
CHECK | | 
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IPWS$SHP - TERS 


INPUT PROCESS 

sucs 

SUND mn nnn 2h 02) Pu e tes delete chain if it exists 

[m= —| tf and> load Ddaress of SHA workarea < 
in register 1. 

TCB 

TCBWA pm amnn nna ==> 103] If the workarea in the SHA rerote 
control block was used : 


w 


cel 


a 


F 


wee mene nee ee 7 


7080 OF be F098 OP 





Unlock the SHA vorkarea. 


Save the error return code. 


Release the SHA workarea via the FREEVIS 


macro (RO=length of area). 
Reset the saved error return code. 


Lock the SHA unit control block chain 
via the IPWSRSR macro. 


If there are any unrecovered errors : 


Indicate kill session. 
Indicate termination type. 

Reset LUBB. 

A. If the list or peace task was 
interrupted by the message 
processor : 

Indicate stop list or punch task. 

B. If a message has not already been 


sent and i 
a message : 


Get RPL address in register 6. 


Calculate message index. 


Issue the gessage via the IPWSWTO 
macro. 


NOTES | MODULE j LABEL | REP NOTES 


2 If an error during send occured, 
the agis should not be reroved 
from the asg queue.The SenpoEary 


delete asg Chain still exis 
during termination and sust be 
urged to prevent deleting msgs 
rom the asg queue. 


$RAS 4 


5 
6 1V07I ERROR OR *request® RTNCD 
PDBK2=xx,yy SENSE=xxxx 


there is a need to send 


ouTPUT 


) MODULE | LABEL 
PREEVIS 
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IPWSSMP - TERA 
INPUT PROCESS ouTpuTr 









LUCB O7| Reset the TCB address of the nessa en nnn ne 
processor in the SNA unit control Block. 


' 

i 

i) 

' 

' 

! 

| 

| 
Ver 


LgGvo Serene en ene rence If the list or peach task was 
—_—_————. interrupted by the gessage 
processor : 


- Reset interrupt indicator. 


acess ee iL. | 
t 
t 
Vee 


| 
' 
t 
t 





- Point to the list/punch TCB. -ommaccamerean 
Post list/punch work BCB. , Reena, Settee aatcsas 
Set list/punch task dispatchable. . Sete ne See | TCBSF 
Reset interrupt $0B for SaP : 
reguest indicators. ESE ren mene 


SUcB 


SUSRI=0 
Indicate SSP not active. $ SUBRA=0 





ay 

| 
| es 
i 





Reset possible signal indicator. ee ne 
Indicate $SP not active. a {sosza=0 } 
Post the SHA work ECB. aE eee | 


Unlock the SHA anit control block chain 
Via the LPESRLR macro. 


Detach the message processor via the 


IPWSDET rxacro. 
to HATHLINECce 
=3] 


Retura 
“4 


{| BODULE } LaBEL j REP { MODULS | LABBL { REP 





SRLB 
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CHART NC: _ _IPWSSNC_- PNET COMPOSER 














gatpat 
buffer _ 
processing 


NC-1.3.3 


pequent 
Data Records 











wC-1.3.1 KC-1.3.2 





t Prepare output 
but er Record putter . 
processing processing 


§C-1.3.2 BC-1.3.3 





NC-1.3.3 





r 
|processing ' 
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IPWS$NC - Network Composer Mainline PAGE 4.0 
IMPUT PROCESS OUTPUT 





Caller 


Entry processing 


-----> If Request TYPE is ALI 


A.jSLI Record Processing 


Be 


mcwA 


ay Pros 
uC-1.1 
eee 


—--- If Request TYPE is Network Control 
Recor 


A-jNetvork Control Record Processing 123 
8. coo > 
Fr’ 


If Reguest TYPE is DATA or Wodal Message 
Recor 


stewee’S 


coher 


ee ee 


RECORD PROCESSING 


Data/5R Feocees*9 . 1.3 





‘| 
If neqaeey TYPE is QBUP and a not empty <--------------4 buffer 
a 


outp buffer exists: - 3S Taarpost 


Queve output buffer 

request reactivation of task after 
su 7 transpission of this 
beffer 


EBxit,return to Callereee 
e 
ye 


3 

H 

2 

3 

3 

3 

3 

: 

: 

3 

3 

: 
: 

: 

: 

3 

: 

: 
ae 





234 VSE/POWER PLM Part 3 


Licensed Material - Property of IBM 


IPs#$$NC - Betwork Coaposer Hainline PAGE 1.0 
NOTES MODULE | LABEL BOTES 


| 
| 








} SODULE | LABEL {| REF 





The NJE Composer is called by the 
NJE transmitter and the SJE 
receiver. 

The composer is reentrant.The 
caller must provide the composer 
workarea. 

The composer input from che caller 


{ 
| Addressability for the tert sr a4 
are reguests for ALI record 


tran ictse OF output -_ 
transmitter is set. 

generation and records.A MLI 2 The reguested MLI record is 
Cequest starts the generation of ag nerated and passed to the TO BR 
the requested MALI record and its BET QUEUE. The Composer returas 
sending to the receiving node -Data to the caller. 
records,network control record nae 
and nodal message records , 3 The passed ie Pa Ore contral record 
by the caller,are compresse is segmented if it exceeds t 
transforrsed to trans@ission format current TPP buffer size coupressed 
and sent to the receiving nod f 


and paver to the TO B 

GEU. 

he composer returns to the 
caller. 


4 The passed data EOCOES/RGdat 
pebipapiod e record is oapres and 
pes to the TO BE s a S202" 

ata record are cut into Boge ent s 
if they exceed the current 
buffer size(spanned records). 


aL 
EOP/TC/ABO! 
TK ork area) 
RTYPE designates he request type 


5 MLI requests the composer to 
generate an 


5 If the Composer is called with SuPB 
ALI record as coded in reguest type. RTYPE (QBUF) the : 
ALIREQ- cetrene ou t buffer there is 
QUEUE. Since the composer 
aust not return to the caller 
Record ; tior to having passed this buffer 
Wetvork Job Trailer o the transa@iSsion line, the 
Record BOPPOST bit in the buffer 
Network Dataset header Record header (BUFHDR) of this buffer is 
«DATA is coded for DATA records set on to request the line driver 
BRR = Nodalsessage for an appropriate posting The 
records,which are rmesSages and current out pat buffer is queued 
cormrzjands and the IPW3H¥PB macro issued. 
ore pending o tothe Composer. 
that the Pend 2a¢ ostpat buffer 5 SBUP 
there is t queued i 6 The address of the callers save 


the 70 BE SEAT QUEUE. area is loaded into REG13 and the 


registers R14 - R9 restored. 


When ee cose oser is Called it 
check type of “the request 
ifield Regak of the compdser work 
area} and starts the appropriate 
processing of the request. 





If during any composer processin 
an inrmediate stop state occurs, the 
composer returns to the caller 
who is responsible for handling 
the stop state. 


‘ 
anys is to queued Lo the TO BE 
| 


t 
Ce Goa pa ser is called via the 
The Format of this macro is 
2PUT RIYPZ g (ALI (CR /DATA/WR /“QBUP) 
Rast BC iB 
| Hy 
| 


eNCR = Networkvork Control 
record | 
i.e» Network Job Header 
| 


a Ee TT OEE Ee EE OO ES EE ST SS LS SL AT Se A 
care NE Gene ep AE EE PEP NR Sy LS SD a LET SRT pS A AR SN SSE TS A ET Ee SY NS AE TS SS ET SE TSG 





Fi 
= 
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IPWSSNC - MLI Record Processing 
INPUT 


= 
Zia 
Q|]x 
=| > 
> 
oo 
8 
4 
1 
‘ 
t 
' 
! 
t 
t 
| 
1 
| 


fr OF 9000 oe 08 Oe 88 ve oe ae 888 Fe Oe Bt OF eh oy SOas 08 HF OO Fe Re Rete Ee CED 


a ne ar ee EE AE SO HS SE IE ASS SIS AAI TS 
A SI Net ee SEN EES i SPAS SP SN CE SE SS SE SS SSE SE SS NS GG SA Eo 





NOTES 
These SLI control records are 





passed by the transmitter : 
nest 8 i itiate a Punction 
(RIP}, End Of File (EOP) and 


ABORT.By the receiver are passed : 
Poeesae lon Granted 
weeny ,Permission Not Granted 
NPGR}, stanee i5520n Complete and 
eceiver Cance 


| By. If there is still an output 
buffer and a request to send an 
ABORT is PERG AG 7 ERO rage hts 1s 
| indicated in the fir SCB 
Snce (Sua res in the first 
RCB iste aatah cite tbe output 
buffer. In SNA-" he 
RIDLength field re ane to 
zero.?Thus records which are 
already an the output buffer 
become obsolete.The Srrpee 
buffer is completed wi an EOB 
RCB (BSC-Mode Pe a and then 
ueves ace the To t_ Queue 
ing the sB0F> RODE=OUT 
Tt PES nti EUE macro.Erit is taken 
to saainline. 


1B A none eupty output buffer 
exists and no ABORT rust be 
sent.The output buffer is 
rioebets wi - an EOB B 


A the To Be 
MODE=O0T TYPE=QUEU 


'2 A control buffer is 
obtained.Control buffers are small 
output buffers of panes Bas 
capable of noe 
record.They are o tated” we $BUF 
HODE=OUT TYPE=CONTROL and 
imaediately pesceged to VSE/POWER 
after being sent.The address of 
the buffer’ is indicated in rt. 


The data length field (BUFDATL) 
and depending on SNA- or BSC-Hode 
isivere buffer data fields are 

itialized. Por SNA-smode the 
RiDLength field is always set to 
zero. 


enerated in the 
B,SRCB,SCB,RCB. 


3 The ALI record is 
control buffer : R 
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aaa 
\ 
\ 
1 
1 


-—--$[03 
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PROCESS 


If output buffer exists : 
A. If SLI request is ABORT : 


Indicate ABORT and 
End of Block Pe tg only) 
in output buf 

ueue But ut buffer to 
o~-Be-Sent-Queuve 


B. Queue Sutper buffer to 
o-Be-Sent-Queve 


{loa Get control buffer 


Build SLI record 
according to reguest in output buffer 


Set appropriate post requests 


Set SLI transmission status in output 
buffer header 


| [os] Queue buffer to To-Be-Sent-Queue 


LF} Wait for reactivation : 


A. When control record is primary : 


- if ABORT to be sent =: 


Wait until record passed to Line 


and inhibit 
earlier posting. 
~- Bait for acknowledgement from 
connected node 


B. When control record is secondary 


and inhibit 


fos] 


Se te Rr ER ee ape 








HODULE | LABEL NOTES 


mliseg 





Wait until record passed to line 
earlier posting if sending Abort. 


Exit,return to mainl ineeee 


5 ltd data transmission status is 
in the output buffer header 


ourPoT 





| 
= 
| 





| 
==] 


pe 
"7 
v 
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a 


SBUP 


$BUP 


ee ee 















$%o1g BUFEST1 according to the ALI 
record sent to the rec@iving 
node.The values set are identical 

to those of the PCBEST1 iets the 

line driver reads BUPEST1 

writes its current value a5 the 

field TCBEST1 after the output has 
been sent to the other node. 


The control buffer is 2 .guened like 
any norral output buf by 
issueing the macro 333 SODE=O0UT 
TYPE=QUEDE. 


In case of all cinar control 
tecords (RIF, EOF, ABORT and 
Receiver Cyaver . the composer 
aust wait for the 
acknowledgerent (s 
Wo acknowledgement 
and waited for for a 
secondaries. Thus the coaposer 
must not wait for a secondary 
after having sent a secondary. But 
to ensure proper synchronisation 
between our node and the connected 
node, we wait until the secondary 
has n passed to t eae = 
transaission line (SVYCO). This is 
done by setting the DATPOST bit. 


In ogder to avoid hanging 

rocest sree me Pk mary abort must be 
pes zine under all 

arogn stances as long as the 
session is upe If an ABORT is 
going to be sent and stili in the 
ote eons coors and assure that 
at this point in time a primary 
Receiver Cancel is received froa 
the other node, this receipt aust 
not ost. the ABORT—Wait as long as 
the T has not yet been Raa sed 
to the ine. Othervise the ORT 
may be lost by the sab neat . 
Pais 2g and freeing of neues. 
h done by wa eet » the 
st time until the 4 

Base n passed to the line ( 
not allowed prior to this event 





as 


the second time until receipt o: 
the Recoiver Cancel. 


LE 


SBOP 
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IPWSSNC -— Hetwork Control Record Processing 


InPur PROCESS ouTPpur 
Bede Main Line | | 
pore If output buffer available : | ' 
fast TO-BE-SENT 
Ae If output buffer is eapty : eee > QUEUE 
ei cae i Ld 
\ 





B. Queue oeteee buffer to 


To-Be-Sent-Queue. 


NCWA 
Get output buffer Both terme hase 
oaeatmiaee If wetwork Control Record not greeter 


than maxiaua YJE transeission 


CRIEIRISISI SES 


Process PREPREC 


WC-1.3.2 





A. see FEO | 
~ lea Split off seguent of ast mex BJB [eae atey 


ansaission block 
Segment Area 


If segment is the first one : Ch “> |__| HCWSGAR 
{os} henge angefere” {or } | f SGA } 


fos} Build header 


Call datbuf for compression of segnent 
and poving it into outpat buffer 


Process DATBUP 





uC-1.3.2 


----- If imamediate stopstate: eve >110 
@ Abel 


O9{ If not last segment ooo > 
[> fore’ > fo] 


Bxit,return to mainlineses 
= 
e 


= 
-,/ 





NOTES MODULE {| LABEL {[ worss | MODULE | LABEL | REF | REF NOTES 


[mores ——S—~—~—“—*~sSCSCSC*SCRDO LR | LABEL 1 BEF SODULE | LABEL 
5 The first “S The first segment contains the |  #=t © 
original header. In this header 


ll 
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BEF 





Network Control Records (ucR) are NCWNCR 
: Job header record, dataset 
header record, job trailer record. the dength “Field is changed fo. the 
actual length of the he segment 
1 An Network Control Record sust SBOP sequence field is fe 
always be the first record in an 
output buffer. Thus if an none 6 Phe header is build for nadite and 
end ing sequents.The fo"Segae 
mast be agsened to the To Be Sent byte is *&* for a e Se oueacs 
ueue. ba i queueing an End Of ad he et the en segpent. «The 
Lock REB provided. taght bh te contains he count 
starting i Zero. 
2 A new buffer is obtaine by SBUP 
jesue ing the macro Zane" AODE=OUT 7 The seguent is transferred to othe 
TYPE=GE procedare DATBUF by cotioas tn 
ecaeat, coentet compresse the 
3 Bach NJE transmission , block is NCRDOWH seane conpt letes it with CB and 
limited to 256 bytes in Mt tores ion (BSC-rmode} and 


Baximus,including 4 bytes for the 
Lengths rt of the piock, f field a 

the arte ane E 
the overall peng wen is 
nore ees 
teense nateea’s Teerdoatee Otherwise 

e WCR is sated tate transferred 

ing the procedure PREPREC. This 
procedure compresses the ncr and 
moves it into the output buffer. 


moves it into the current output 
buffer. 


8&8 If an iasedite stopstate SjH}P 
occuerss, exit to mainline is 










I 

eapty output buffer ox jets, this 

4% The cosaplete mgt rated must have a 
length of 256 bytes in 
maxiaure.Thus the first segrent 
must have a length of 256° bytes 
gree it _coaprizes the header 
already.All riddle scqacsts must 
be 252 bytes sane = Since a 4 byte 

st b ded .tThe ending 
sognent is shorter or egual than 
eS 

If SWA-egode all segments are 

rovided with a preceeding gee 

Fdentag ier jer (RID), which is oi ‘eae 

ong. three bytes are a 

regarded “part of the segment size, 

1.e. cher 5° not reduce’ the 

ength. 


segrent 
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IPWSSNC - Data/Nodal Bessage Record Processing 
INPUT PROCESS OUTPUT 





| 
| 
| 


La 09 09 08 00 00 ee FH Be 00 00 1900 0F OS 00 F0 0 OF Oe 00 80 08 OE OF OF UD OF 00 OF UF OD OF OP RF OF OF Eee ER OF OF UP OPED 90 09 08 On 08 10 08 0S 008 BP OS 00 50 0900 00 08 00 00 08 08 Oren cone ad 


peti If t ord is data record, which aust be 
ande and the max. record length <= 
rk} XMIT Block size - 1 
eee upspanned record with trailing 
Calculate # trailing blanks 
Build record header 
Pass record header and record 
to PREPREC 


Sees s 
/ 


eCor 


Process PREPREC 
HC-1.3.2 





----- 02 If record is data record, vhich must be 
expanded and the max. record length > 
nje XAIT Block size - 1 
Build anned record for e anded data 
record {add trailing blank 


Uascese > 


Process DATSEG 
wCc-1.3.1 


aoe i 





NCWA If record is data record, it ge noon not --<----------— 
be expanded and record length < 
Bua lock size - 71: 
d_unspanned record 
a record header 
Peas record header and record 
to PREPREC 


0008 C0 Oe 00 00 08 00 0 FF 0899 9098 99 08 00 FE 09 8F OF 99 09 88 08 Oe OEE OSD BE OF 00 09 0 8s OEE 09 89 OF 


a er a ee ee 


ua, 
< eeceoecee > 
sf Process PREPREC 
¥C-1.3.2 


If record is data record, aaee heed na 

be ee Pasced and record length > nje xBtE 
size - 

Thins spanned record . 


LP xseewe" 5: 
—nr/ 





Pree 09 oe peel es vate On oe nn oe en eee 


5 


Process DATSEG 
yC-1.3.1 


A. 





}05/ If record is nodal message record : -—---------— 
Pass record to PREPREC 


/‘—".. 
< eeceoe > 


Process PREPREC 
BC-1.3.2 





Bxit,return to CALLEReee 
e 
pe 
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IPWSSNC - Data/Nodal Message Record Processing 
NOTES { MODULE | LABEL j REF 


The £unct jon of this hypo i. 

shiek ane atit to work as a selector, 

wh ich S a given input either 
o data arecord Segraentation or to 

te PREPREC routifie. The selection 

criteria are : 

- must the record be spanned 

(segmented in pieces) 

Bienes the record be expanded with 
anks? 

A record rgust be segmented if it 

larger than the NJZ Transgpission 

Block size -1.Tne Feanct 108 au one 

is necessary. because of \ 

coapatipility reason to furth 

IBA network pregect S, pnet ca 

coaaunicate 


A record aust, be expanded 
iss fant de 


HOTES | SODGLE |} LABEL | REF 


Data secords which must be spanned 

are passed to the DATSEG 

subroutine for spanning. Data 

records which need not be spanned, | 
re 


and nodal message records a 
assed to the PREPREC subroutine. 
ane ee routine builds a 

lete record, existing of th 
fee D Identifier (s8A-aode galleys 
the header, data and 
requested, of trailing blanks. 


Por all records except nodal 
Besssage records passed to PREPREC 
a headér hae gta the length of 
fhe record 


DR case of ote its e records the 
coamand code z 
Pre ceed in ta el also part 
he header is 
pas th its record to 
eo PREPR C resp- DAPBUF routine. 


th) hee imeediately 

with | 

ts record 
inua ether w 


ec . 
> ( ag teed a ne ither 
segaente since the 
alvays shorter than the ys 
transmission pjock size) hor 4 
they require blanks to be tra 
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IPa$$nc - Data record segmenting 
INPUT 





WCWA bd 
NCWARA nee, 
| SCWARL 7 
1s i-----> 
---->> 
Data/MAR - : 
based 4 


: 
| 
| 


bsoeoas 


ewe ee ew mew me owe wwe we 





NOTES 


The maxiaurm size of a data record 
segment is the Transrmission sSlock 
size -1.If the record aust be 
expanded with trailing bianks up 
to the maximum record tongeh 
(passed by the caller). e 
pezecnter 108 must reflect the 
total record including all blanks 
to be expanded. 


The header of the first segment of 
a spanned record contains = Total 
data length of the anned record, 
Gata length within this segrent 
plus one byte for the command 
code. The header of subsequent 
ments contain the 


ment data 
Teagth only. "Ey . 
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DATSEG 
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ouTPpuT 


PROCESS 


Caller 


Split off segment 
Build segment header 


indicate if first 


middle or last 
segment of spanne d : 


recor 






ee eee ee eee > 


| 


Pass segment header and segment to 
PREPREC 


{f———_—. 
< eecceee > 
ie Process PREPREC 

WC-1.3.2 





If immediate stopstate a 
If not last data segment =: [e-=" 


Exit,return to CALLEReee 
e 


pe 
wae 


REP NOTES 
The current segment including its 
header is passed to the PREPE EC 


rocedure. 

Phe PREPREC procedure builds a 
coaplete record, existing of the 
Record Identifier (SNA-mode only), 
the header and the data segment. 


{| SODULE | LABEL {| REP 
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IPw$$NC - Prepare final data/NMR-record 
IsPouT PROCESS ouTPpoT 





NCWA 


5 
| 
‘ 
| 
v' 
[3] 
pry 


If blank expansion requested by caller, 
blank out intermediate buffer. 


oe If SA-mode write RID (Record __ 
identifier) at start of intermediate 





buffer. | 

NCWA 
NCWHDR 
NCWHDRL 


NCWSGAR 


| | 
>}03| Move header into intermediate buffer. pagal les = 
| | | i 
| 
| 
J 

















PIMTRINIMSEIEISISISISI EE SISSISIE EE a 


Nove record/segrent into interned iate 





| 
al 
| 














a [04 buffer. | 
CWA : 
i—~-->} 05] Increase record length by # blanks to be 
[ncence | added. uCwaA | 
NCWRCL 
_——______—_ Pass total record to buffer processing.  --w--t otter > ae 
| NCWIMA 
[Sone ae 
<lseenee’> Process DATBUP { | 
NC-1.3.2 | 
Brit i 
return to callereee 
e 
e 
NOTES { BODULE | LABEL | REF HOTES { SBODULE | LABEL { «AEF | 
sepetate: itenct sh jek are pat > Tee sorad iiebethe interacasate"” | -— 
i nov into e intermediate 
together to a Single data record : buffer. In case of a nodal sessage 
Seer eacucht os ee Gace ae awk 4h record there is no header. | | | 
eco 7 a e 
ney Ses Bust be procvedes py a 4 Pod Recrec/megnent. | as = parsed by | t t 
= . e caller noved t { 
intersadiate & buffer. 

1 If blanks are to be added, the bears t | | 
intermediate buffer which ’ is to 5 If blanks aust be pended to the | 
Biankel oue.Teoors te Be ballads is Ess°bdey BRaaber sat te’ theetF oe f | 

step. Blanks are apposed now by \ | 

2 In case of SNA-Mode, a record increasing the length of the | | | 
poet erat eateet aera neErees” record in the intermediate buffer. i 

6 The record is passed to the DATBUF { | | 
procedure. | I | 
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IPWS$HC - Output buffer processing 
Input PROCESS OUTPUT 


[be 
eee >From Caller 




















' 
| p-—------- 9 J 01] Get outpet buffer if there is none 
NCB | : 
---~--~~~ }----—------>]02] compress data record /segment 
bebe I 8 lee for BSC or SNA ecaraine to pode DKABLE 
| : Hi a.[rPwSSK i De hte _| 
NCWA 3 H | 
3 3 B. If Compression return code [eee > 
NCWLNA : : ansucesssful. set stopstate H jd DKAOUFLE 
omen Sat Stamens and indicate compression error. 
NCwIBL | : aa era mr | DKAR EQ 
----—-—-~i----—---—---> [03] if compressed record, including RCB : 
| of SURES TST REA Fi | le 
 ataeniantaateataeneaiatia == Ss BO i : 
NCWBUFOP | 2 pcp aces P —-> [TCBECRTL 
| i : Queue current buffer TCBTT 
z | Obtain new buffer | 
BOFDS | i mo fou} __» Output buffer 
[BOPDATL I Pops ee aes BUPDATL 
1 u A. If BSC-mode : | 
| | RESET ESELD . BUFDATA (S) 
| | write RCB, SRCB into output buffer. 
B. Sove compressed data record/Seguent 
| into output buffer. ” 
C. If BSC-mode : 
i Write EOB-RCB into tst. free byte of | 
output buffer. 
D. adjust remaining length in buffer | 
header | 
| NCWA H fost 
( opieee 3 =] 
{ ' eben a H t Exit,return to Callereee 
e 
| L>NCK OUT ye 
ee EE 


















NOTES 














| MODULE | LABEL { REP NOTES { MODULE | LABEL | REF 
Note that SNA-NJE 2B If the compression return code 
will not span normal is not zero the stopstate H is 
records/segments set and compression error 
ve aa 
i END-of-Request-Unit RCB/SCB. the caller. 
| A RU produced py this procedure 3 The total leagth of the compressed 
consists of one or more units :. record/segrent is calcalat 4 
| RID, data, each unit Beate and with If BSC : Three bytes are added to 
an Scs. The last data byte of the the compression output for the RCB 
last unit is the last byte of the and SR which preceed the record 
request unit. and the BOR-RCB which will be 
. . ; overwritten, if this is not the 
2A The compression function as a last record. . 
VSE/POWER function. If SNA : Total length is equal to 


I 
tran sf oras Recor sing to its the compression output length. 
compression algorithm an input 
4 In case of BSC-aode the compressed 
data_record is followed by an End 
of Block RCB. Thus this RCB need 
not be written any more when the 
puffer is queued. 
In S¥A-swode no End of Record 
RCB/SCB is written. The last byte 
of the buffer is the last data 
byte of the last record. 


a 


string into an output string. 
It produces different outpe 
for BSC and SNA. Note that the 
compressed Str ang always stops 
BSC : with an EOR -SCB 

SNA : with the last data byte. 


' 
accross request units | indicated in the field 
does not ha | TCBECRTL. A return is made to 
| 
it 
tf 
i 


Re ape a eee norman rman ree a 
 oticrademimanalanitiadameamanmessantmnansnnme: andemmiemenmitemsaaumaeammeee 
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BSC 
1/0 SANAGER 









wa-1.0 





Look up 
buffer queues 





NA-1.1 


CHART NM: __IPWS$NM ~ PNET I/O MANAGER 


Chart NM 


~ 243 


IPWSSuH - NIB 1/0 Manager 
IupurT 






| 


pees 


TRI EINIPININ ISIN ISINININ IE EORINISI MRIS ERIE IS SE ISIC ISS re ee) 


Register 13 


t>Save area 


Reg 14 - 9 





f NOTES {| MODULE { LABEL | REF j 


all I/0*s requested by t 
BSC-line driver. 
Whenever an Be 2 
initiated, 
this b 
reques' 


eration is to be 

the ca. ler requests 

indicating the type of 

in the Node control block 

i? } and invoking the BSC I/O 
anager. 

On entrance the request code being 

set in the NCB is analyzed for 

validity. The request Code 

consists of a main and sub 

request. The main request is in 

the first four bits and the 
sub-reguest is in the last four 

bits o the code. 


| The I/O manager is Peeponespie for 


Depending on the request code, the 
appropriate | channel pr rea is 
created in the relate 
control block and the By as 
started via SVC 0. 
No wait is perforred after the SVC 
0, however control is ediately 
given back to the caller, whach 
hen waits for coapletion or 
processes the next data buffer. 


The BSC I/O Manager runs under 
contral of the caller®s TCB acting 
as a function moduie. 

Pollowing 


- xo? 


requests are supported: 


start up prepare 
seguence 

EesStart initial sequence 
disable sequence 


- x°05" retry sequence 

- x*07" read onl uence 

- -.«*08" ex else flow sequence 

- x*10*% geheral 1/0 reque 

- x*11° write grees response 

- x*32* write/r 

- -z*13° weite response / vead 
x 

- x84" suspend a 2 poduence 

- x*®20°8 HAK! sequen 

~- x*2%* DLE-ACKO Sequence 
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' 
' 
' 
‘ 
Y 
wv: 


| 
y 


ee eee rene 


From 


-—+-------> 03 


PROCESS 


Caller 


Save caller’s register 


Check if pine is busy. 
to calle : 


Analyze r 
depend ing 


a. If x*10* - general 


n it 


look up buffer queues 
Ba-1.1 


Be If 


applicable 


- set up last non-#AK request. [ose 


c. If 


- set up channel 


containing read C 


Build channel program 


Update BCB count and PCS bytes in output 
Re if applicable . Le 5 


buffer, 


Issue I/0 
set line busy flag 


cancel tiner-interv 


Save executed reguest 
sare etter ace Bytes, or 


peetces caller*s register and return to 
is 


Brit, 





3B 


uest code in NCB and select 


x°05* - retry request: 
- decrement SCB count, if 


x°07* — read only request: 


PCCH only. 


reset ansver delayed flag 
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OUTPUT 


Register 13 


Save area 


If so, retura[oee >[os | 


request 


- 
alo 


@ and. 
if applicable 


return to Pasioies | 
e 
e 








NOTES t{ SODULE | LABBL j REF 
The caller*s register are saved in { SSAV 
its own task save area addressed 
by register 13. ‘ 


The line status flag. is exapined 
to see whether the ane is still 
busy (1/0 coapletion still 
outstanding) or not. 

If it is busy, immediate return is 
made to the caller. 


Zhe request code is tang by 

g it into main an 

sobre nests The mainr 

resul Eros the lef “balepyte 
is used 't e 2 ddress the relate 

branch le and the subrequest is 
used t A aharena the routine within 

that beance table 


If retry is =e uested, the 

request from the last request 

£3 he ae e ree aCB is Bors into 
the ac alay the, field 

ages tional he e BCB count is 


sequence. van’ : tty en 

ex 

However when the last executed 
uest was a NAK the last 

nohi-nak executed channel 

program is built instead. 


If read onl ,the last 
used channe 
to locate the Pread CCW, which 
is then roved to the first CCW 
of the channel prograr. 


A SYC 0 is issued and the line is 
SY 


ee uest, 


set bus 


the caller®s registers 14 - 9 are 
reload ed and control is given back 
o him. 
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IPWSSNA - Look up buffer queues 
IsPUT PROCESS OUTPUT 





Prom Caller 


Reset suspend all indicator 


—->[o2} If suspend was received: 


A. If free input buffer is available: 


- pe a -- write empty block / 
read t 


B. If no input buffer is available: 
indicate wait-a-bit 


= Ses hemes to set A Swait-a-bit® 
= ay answer, if applicable. 


| 

' 

| 
[z] 


If free input and output buffer 
available: 


~ save address of qetret baffer 
save address of input buffer 
- request write/read tert. 


{ 
{ 
u 


If a_free input, but no output buffer 
available: 


- request write response/read text. 


wwe =) 


If an output pafter, but no free input 
buffer availabl 


- indicate teaporary suspead 
- request write text/read response. 


PIRI MIDININ IN PISCE CEI ESI) 


oa 
| 
| 


e 
| 
' 
' 
' 
Vv' 


If no free input and output buffer 
available: Spero | eet 


indicate suspend (va it-a-bit) 
indicate response delayed 

set up time interval (1,5 sec) 
request write response/read response. 


poet 


Re RE RE ES ST OS ST SE 


Oo7 


Exit, return to cetieeee | 


p 


<7 
¥ 








1 SODULE | LABEL | REF uOTES {| MODULE | LABEL hy BOE ES fe a BODMEE: | PABEL. (0 RER | 
ae incoring request code x*10*° is “@ If afree input buffer is #3.) ° °&4§| | | fm ut buffer is | 
jodi tied in’ order to support the available no dodo bale as ‘queued, 
var ous aut te eeatentes h the nut. em ere tead uence is 
uences. The S are based cformed, which acknovle ges the 
on the input/output bu batters (input ast received input buffer with an 
| buffers w are in the free esety block, containing BCB and 
input buffer queue ead outpat PCS characters. 
buffers which are in the to be 
sent queue) . 5 If ostpat is gueued but no free 
snp pie uffer is available a 
2 The orner side of the line has sulti-leaving write sequence is 
sent Siepend all ALF 3 pa performed. 
therefore o output bu 
regardless if one is available, 6 If neither omtput buffer queued SST 
can be sent. An aeptr ock » hor a free input buffer available, 
containing BCB and FCS bytes is the handshaking sequence is 
sent in order to acknowledge the perforred, resiltifig in the 
received anpot buffer or to do exchange of positive responses. 
just hand-shak ing. However the request is initiated 
ee will be t with a 1,5 second 
2a If no imaediate response be aye Therefore a time interval 
hecessary, (vequested by the of 1,5 seconds 32k requested b 
line oc or ais tequest issa gt the ts STH gacro. Th 
delayed seconds “it not network line driver is posted when 
ainenay done’ ones: the time interval is expired. The 
Line driver then invokes 
2B No anpet buffer is available, immediately the 1/0 anager to do 
therefore the *wait-a-_bit* the 1/0. 
ae is pequeeted. Yet the 
se’ ing ‘of this sequence is 6 However if no suspend all = penn 
fiare by approxigatly 1, sent yet, a request is set 
seconds, if not already done send a saspend all Gnitza-saty” 
once. record. 
3 If OurpEy is quened and a free 
ane uffer is available the 
au cinkeaving write/read sequence 
is perforned. 
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IPWSSHP Sainline 
Inpour PROCESS OUTPUT 


| 


t oehenenbemnimnahenaieantasanntaiemmmnenteentnememnmentatememtammeninnemsanmemanaeaenatantieanetentl atmnatamentaantredemartee ke 
v 
a 
fz) 
o 
a 
\ ' 
ed 
L 
erence 





a | 





[epwrcppr 7 
i 


Register 


Save Area coma nnnn--->f07] Function entry processing. 


09 00 0600 0008 0 ee ent 





Presentation | 
E Buffer 
DNPWA 


Presentatio 
a 
Work Area 





----------- >[(03} IP request unsucessful: foo °3 [10] 
—-—------>foa] IF EOP or ABORT received: [eee 10 | 
Le ~------- [05] IF coaplete NCR record received: [e==°> [07 ] 


| T maemnteatnate IF first ment of NCR record received: 
apa | se 


3 a.feuild NCR Record 
: RP-2.2 


RCDSRCB) §o ~-----------: 
Ex a SCR record according to current 
release level. 


A.fTest HCR Record 
uP-2.3 


B. Return. [eos >[10 
—,/ 


SS IF complete data record received: co 


senaend 5 IF first data record received: 


| A.}Build Data Record 
uP-2.1 


Return 


to Caller eee 
pe 
i 


NPWA 


een rereeee | 
t 
¢ 
¢ 
4 
z 
@ 
a 
b 
- 
ww 
§ 
A 
= 
Us 
ee Ne 


0000 es 08 tem 


OR UR Oe OLED ORs BENS eRe OD OD OR OF e 


OOP nS CTL GALLEY ECO CO EEE PRCT OT Oe CY Se 
r 


ARP RT SER UA AY PCM CSET EASE Ee SRA 
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IPWS$NP Mainline 








BOTES 


The record presentation funct ion 
deblocks . LI TP-buffer and 
builds a logical record in the 
record presentation buffer. 


{ BODULE | LABEL 
wPCcS 


| REF 


“3 Process termimation or | | |S  #¥Y. 
Comaunication between the record 
presentation function and the 
Eeceivery module is effected by 
6 
7 


means of the VSE/POWER function 
Linkage. 


Entry registers: 
address workarea 


R 1 

for record presentation 
R 13 address function save area 
R 15 address aodule IPWS$SNP 


UPOn eter eallers registers are 
saved in he Euact ion save area 
addressed by register 13. 
Addressability oF 2 a new function 
save area, locate the 
presentation vorkarga is 
est abiiahed = The address of the 
receed ing function save area is 
aved he new function save 
area. 


$SA¥V 


Release alternate presentation t 
buffer when allocated by preceding 
function call. 


pep ock (agcospres® the next 
physical MLI record from the TP 
process buffer. 


The physicial record locati 
addressed by the field asuecopE: 
which initially addresses the 
start of the presentation buffer. 


SRLY 





Record format: 








[ BHOTES SCOPES ———C—Ci‘YC«CSOODLE | LABEL | REF MODULE | LABEL REP | 


presentation errors associated 
with the TP data stream which are 
reflected in the record 
presentation return code. 


An MLI End of Pile or Abort 
transaission record is indicated 
in the ALI status byte when 
encountered. 


The Network Control Records 

received from the network gay be 
spanned over several NCR seg 
ich have to be accumulated 

complete a BCR record. 


ments, 


Process termirgation or | 

The eee of the general section 

of th CR record say be gacn. ee 

than the current length of th 

eneral section of the actual 

release. 

Exp Pzpans ice b=] the general section 
ora whenever the length 

of e Eece sae generar se section 

appears to be tod smal 

continue processing. 


Data Records received from the 
network nay oe Spanned over 
several da segments, which have 
to be accuaulated er complete a 
data record length 


Return to the callin 
performed by restorifg t 
registers from the preceding 
function save area. 


ee is 


| 
| 
| 
| 
| 
| 
| 
| 
| 
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IPWS$HP - Obtain Physical Record 
InNPuT 


pevsetses cia 





TPBUSCH 


TPBUSRCB | 
TPBU data | 
; Canine eee oeee | 


a 


eer ee a er ee Ae ee me Ie ee RN 
OP SS ae Rr ER Uy Se SETS Se RPS DN ey EE I TT SE 


oo 


NPWDKA 


Decompress i 
Workarea | 


i 


NPWKDA 


foxastaT I 
y-[yewaopao i 
t 


Process 
[bufeer 


| 


eter ee ee Ne RE PS a EE Se SE Ss SE ASR SN Se nA ST SE pe HU A 


--~--------> 





PROCESS 


| te | | 


ie Mainline, Build Data Record, 
/\Build NCR Record 


fo2} 


—_— 


= If SNA-node : 


Perforrg decompression post processing. 


 aeateatnnatereeanenel -—--------->]07| Pree process buffer when end of buffer 


Retura 


re 


Loe] 


5 pecoa eee data portion of 
/segment. 
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ouTPuT 


H 
| 
' 
! 
| 
' 
t 
Vv 


J 


Buffer froa 








bes aveser tom 


Received 
Obtain next process buffer from received --------- Queve 
qaese when no buffer available for 
eblock ing. 
A. Return with EOF indication when free >{07 | 
BOF record presented in new J | TCB 
process buffer. 


$ [rcsest1 i 
| | 
EPWRCDPT | 
< 


eee 
Cv oreo 


Return to caller conditionally 


A. Return with ABORT indication 





when ABORT SCB presented in 
current process buffer. | 
B. Return with EOP indication when fecee >f07 
EOP record presented in new [-=*", [07 | 
process buffer. 
If BSC-mode : NEAR | 


os 


RCB and SECA from process buffer 
presentation buffer. 


Oe) Seek 


A. Decospress Record Identifier 


B. Test for ABORT, BOF. oon error, BCB 
error and return if found. 


C. Obtain length of subseguen 


record/segazent from &I and set up 
decospresSioa request ee 


recor 






A.fIPWSSNK 


fe 


B. If decompression return code 
unsuccessfull, set presentation 
return code. 


Hi 
: 
ae 


reached. 


to callerese 
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1 %QIf a buffer is currently ha 
rocess, indicated through a 
honzero value in the *NPWBUPRO® 
pointer maintained in the MWPWA the 
next record can be made available. 


Otherwise ouffer management is 
invoked to get the next buffer 
froa the received chain. 


Using the buffer management macro 
request: 


aL MODE=IN, TYPE=GET, 
WAIT=YES 


| when buffer managerent has been 
invoked with the WAIT=YES ethene 
ans no buffer in the "RE 
AIN® is available, che task is 

put in wait State, waiting untal a 
uffer becomes available. 

In this case, the task is posted 

eros the tine driver on receipt of 

anpe ut buffer which contains 
data or the waiting task. 


AF. Beg ascer R1 contains the 
ress of the next TP process 

buffer. Whenever the value in 

register one equal cannes the 

rocess aust have 

erm inated due to STOP 

peopegar sens of the line d 
to a PDRAIN comman 

issued by see operator for the 


In case a TP process buffer has 
been obtained it is tested for 
an end-of~file record. 


iver, 


receiver 
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GETREC aeat received fron 


& Bach record/s 
is preceeded by a 


| the sending node 

record ident. 

(RID) ~Decompress.0R of a unit (RID 

+ record/segreent) is performed in 

two steps : 

In the first step the RID 
RCB,SRCB, Length of qubsecuent 

ata) is decompressed. If 
ABORT-, @nd- or error ind jcat ion 
is found, the subsequent data 
indicated in the RI -length fisla 
is deccspreaaea in the secon 
step. This two-step-aethod eaahiee 
Asse bio ant always to locate the 
next agp in the qf -fapat putter, 
even if the sending node does not 
ere rite each RID et a proce ang 
tee In the latter 

decoapressica generates this SCB. 


The BSC decorgpress routine 
decoapresses one record im the 
presehtatioa buffer. The output 
is passed by the calling 


routine. 
A pointer is set to the next | 


IPWSSNK 


Oe Re SN ER SL 


area 











gapst eee Betas in oe TP-buffer : 
“rode : to SCB 

BE eceed ing eg nee RID 

SC-mode = to the next RCB 


7 Buffer management is invoked by 
issuing: 


IPé#SBUP BODE=IN, TY PE=PREE 


to return the current process 
buffer to the free input queue. 


PREEBUF 





: 
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IPWS$SHP - Build Data Record 


InPur PROCESS OUTPDT 





ad SPWRC 
an @ {upwaLeur } 


e 
e 
ey Prom Sainline 


oe ee me Indicate segment error when not 







RCDRCB 


e, 


coe ee se eetem 











—_—_———— f first data Segment received. f 
RCDSRCB = § ~----~-- ~~ $ 
ee ee a ee e 
RCDLEN | pon 2] 02) Allocate alternate presentation buffer ! 3 MPHRCDPT 
5 when total spanned record does not fit Se ne mend 
TOTLEN 8 § ------ ——— | in the normal presentation buffer. 
———_-———} | Normal/ 
SEGLEN ! ; Altera. 
———- >|03] Process first data segment. Buffer 
SEGDATA 
NPWA | O48] Accumulate data segments: 
{STRTLREL | ----- eee - - 
_——___________$ A-j|Obtain Physical Record 
- wR 2-0 
RCDRCB . 
ae B. if request unsucessful: [eee 
— 7} 


RCDLEN 


coraplete 
recor 





Cc. Accurgulate data segment with data 


record in presentation buffer. 
D. Repeat when last segment not 
processed - 


Co oer ee tere cece es once cccese stom 


r 


ae ee eee one 


[ copr | 
LIne § elahaininiok es 


t———-——=-->}05{ Provide 


pega address of the complete 
ata record. : 


to callereee 
3] 


“5” 


Return 





NOTES NOTES 


| HODULE {| LABEL |} 
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Copy first sequeat data to the 
begin of the Resentation buffer 
fnoraal or alternate). Th 
ength bytes are deleted. Th 


e 
total length is sapped jnto the 


RCDLENW field of the logica 
record. 


4 The SRCB of the first segsaent BUILDRCD The next data segrents are ACCUSPAN 
received is tested for a vwalid accumulated into the norpal or 
segment identification. In case alternate record presentation 
the SRCB does not indicate first buffer. Sybsequent data segsgents 
segment, a return code is set and are read into the presentation 
the process is terminated. buffer and shifted adjacent to the 

: data record. 
2 Data format of the first Segment: SESY : 
The segment accumulation 
Total Record process is tersinated when the 
pa hag _ 2 bytes next request for a physical 
Leng Pirst record indicates: 
Seguent: < 255 bytes : Eng 
‘ a) a record presentation 
VSE/POWER does not pupose any error. 
restriction on the total length of b) snexpected end-of-PFile 
the record to be spooled. rece ived 4 2 
f c) ABORT transmission 
The size of the normal : received 
pre@entarsen buffer patches with dad) Segment out-of~sequence 
he size of the YSE/POWER logical error 
data buffer. c . 
&D Accuaulatian is repeated when 
When the total record length last data segment has been 
exceeds the length of the noreal processed. 
presentation buffer, an alternate 7 7 
presentation buffer sust be 5 adjust the record poister to begin 
obtained to accumulate the data at address of complete logical 
segments. record. 
VSE/POWER data managerent is 
responsible to represent the 
record in gmultiple DBLK records. 
| : 
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IPWSSBP - Build NCR Record 
rapot PROCESS OUTPUT 


[e 

cae 
“| 

nee es zest Sc in HCR header for emery 
> 





RCDRCB 
RCDSRCB 
RCDLEN 












08 8 Oe Of 88 Os 99 08 bom 


NCRHDR erent . 
RAEI Ae Set retu code wh 
NCR segment get yeters c when sequence bed é 










| 


Accumulate ¥CR segment 


A-{Obtain Physical Record. 
wR 2-0 


B. IP request unsuccessfull: oye 








D. Repeat when last ment not 
processed. oe 


‘ee #+------------------- Provide begin address coaplete BCR ~-~-------—--—--—--> frPwRCDPT 


> Return 


to Mainlinesee 
ye | 


“y/ 


C. Accusaulate segment with BCR record. | 





NOTES 1 HODULE | LABEL ji REF NOTES A SODULE }) LABEL ji REF 


41 fhe CR header, obtained in the BOILDHDR The Seqhen® header bytes of the 
first segaent, is tested for a curren ment are deleted, 
valid sequence nuaber. In case the the segment data co 
poz uence number is incorrect, a adjacent to the NCR re - The 
return code is set and the process al record length and e 
is terminated. peagth maintained in the NCR 


er field are updated. 
The nert WCR data segsents. are ACCUBSEG 7 . 
accurgulated into the normal record 2D The process is continued until 
resentation buffer. Subsequnet the last segment has been 
CR segments are read into the processed. ; 
33 sentation buffer and shifted - ; 
adjacent to the NCR record. 3 par ing the accurulation ipEorese 
eo 
The HCR segment accunulation is 
terminated when the next 
poqeese for a physical record 
indicates: : 
a) A record presentation 


error. . 

b}) unexpected end-of-f ile 
received. aoe 

c) ABORT transmission 


rece ines 
ad) correct segment sequence 
nusber received. 
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IPWS$HP - Test NCR Record 
InPvT PROCESS QuTrPuT 





| 
| 
| 
| 


DSECT Length al 
WCRLEW po =A Kainiline 
NCR Record 


ees |e A. When length ef general section fore om 


coppl ies with @ actual PHET 
bd pode _@xpansion of general 
= WPWECDPT section is not necessary 

Be. If total length of ery >403 | 
Ly l record too large set etore coaele22 73 =] 


Expand general section in NCR reco: 
h binary zeros to comply with the 
current release level. 


Ae The Ww data located after awe 
general section is moved v 
interaed iate Storace to aliow 
expansion of the gé@neral section. 


B. Bxpand general section with binary 
zeros. 


noe eee 
L., 00 00 15 00 00 00 00 teey 


BPWRCDPT 1 


< 











Cc. Update length fields accordingly. 


to Hainl ineere 
re | 


of 


Return 


A GF A ETT 


en pn nth EN NS ET CENT ITT TT see \/ SA a SOS SAAT oa 















WOTES § NODULE | LABEL 


NCR records may be upgraded due to TESTHDRE 
further development effort. There 

+. no full guarantee that the 

local PNET ice" cosaunicates 

with a NJE S em that has _ 

sare BCR recerd release level 


{| REP NOTES OPES i(‘(‘COé™OC*C*C#N: ODULE | LABEL | REF MODULE | LABEL 


{ REF 
The “2 The calculated length difference | #8} ° &42,}~ length difference 
indicates the nusber of binary 


zeros to be inserted. 


The process gust be ters inated 
whenever the erpended HCR record 
cap not fit within the noraal 
presentation buffer. 


2c Fol lowisg length fields have to 
be updated s 


~- general section length. 


— total length in NCR 
header record. 


- total length in 
record présentation 
header. 


Therefore the necessity exists to 
ex and ea general section of a 
d with bisary Feros to 
comply vi wick the actua qngth of 
qe eneral section within th 
ine. PHET systen. 


Note that with a new HJE release 
the length of the general section 
never decreases. 


Ta The gat tencace between the 
current | res ease E of the and the 
received length he general 
section is calculated 






Wo action must be perforrzed for 
zero difference. 
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Bad~of-Pile 
Processing 


wR-2-0 








! t 
JOB Trailer Spool OUTPUT 
Processing Data ¥ 
Processing 
BR-3 4 


User Exit JOB Header 
Processing Processing 










Spool JOB 
Data 


Processing 
BE-3.5 





Ba-3.0 wR-3.1 


BR-3.3 
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IPWSSHE ~- Mainline 
IuPur PROCESS ourPuT 





PECB 
PHCBERBR 





e 
ieee Froa Task Select ion 


Entry processing. | 






a 


A. Initialize vorkspace. B 


B. When processor in run state it = 09 s=<----— rae ae om nen mom 


TCBTT 
responds to an outstanding * est —— 
to Roitiate @ function mrs) het bo 9 a TCBES?T1 
*permission granted (PGE) * 

yRWA 
oe eee ne ees ee Process records when processor in run 
state: MPERCDPT 
intr tmiecaenemtar | A- Get logical record from record : 4 
ff 


presentation function. 








0 008 60 oe 8008 oe 


[en 
unsuccessfull return code: 


y, Baffer 
<‘ eececce > XPUssuP Logical 
1. If console receiver then 


| 
| 


General 
Work Area 


Account 
Record 


do cleanup and loop: 
2. othervise : 
c. If nodal a record received, 


resent it to general asg 
rvice and lodp: 


Coaposer 
Wor! D-fRrecord Handler 
BwB-2.0 

















BE. If end-of-file indicated: - pce OPO 
Bnd-of-File Processin ; i 
Work Area Pe sd ; pany 
m-2.1 | 
RWA 
Se P. Save record id of last request. Se nares, 


SRRECORD 


RCDSRCB 


oo ec tem 


' 
1 
1 
' 
' 
‘ 
' 
1 
’ 
L 


Tereination Routine 
ar-2.2 


Detach processor. po ee 


To Task Teraminaticnecse 
Tis 


ucB 
SCBDETE 
BCBDTCH 







Ge IF no ABOR? received then loop: [eee "3 [02 J | 
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IPWSSNR - Mainline 
NOTES 


pultiple receiver processors may 
ive te allow logical 
gtreas auitip @xing accross the 
ta link 


A receiver has been attached b 
the line driver as JOB, or OUTPUT 
(ere et of receiver VY-n) on 

re eipt of a specific og) pial to 
initiate a function (RIF) f£ 

JOB or OUTPUT receiver. 


A receiver has been attached as 
console receiver after PNET nodeid 
initialisation and detaches when 
PRET termination is reguested. RIP 

and EOP control requests are not 
sent to the console receiver. 


The receiver is responsible to 
process the NJB-logical data 
stream associated with this 
precensor Console. data may be 
poterpized with JOB or OUTPur 


The console receiver is 
responsible to process the SJE 
Nodal Ressaze Records, which are 
pas assed to VSE/POWER eeneral 

ssage service rout 


















































A aoe Sh ppt ht ; a on: rng $3 for 
a a which is 
ooled either, to the ortaeh BDR 
aeue for local 


or to 
he X#8T queve ‘agpendone? Spon the 
final destination. 


#6 OUTPUT receiver is dz 4esP sible 
or spooled o1 ouTPUT ata, which 
eoree either to the local LS? 
queve or to the XAT queue 
Gependest a Epos the final 
epeansti 


Entry conditions: 

- registers are set up according 
to VS WER convent ions, 

» work area storage. has been 
provided by the line driver. 


The receiver workarea contains 

following areas: 

e gener receiver work spaces 

« Teceiver account record, 

° york, are for the composer 
an 

e work space for the record 
prose 4 fanction, 

- work space for the 
decosa pression: function ,° 

+ presentation buffer with length 
equal to the size of the logical 
buffer area (DBLK) + 8. 


1 eoransise the return address for 
PRET terminatjng routine. Bane 

: dress is maintain the PNET 
master control block (PNCBERNR). 


The receiver returns a *Permission 
Granted* control request to the 
corresponding transmitter fron 
which the *Reguest to Initiate a 
Paneer 108 © has been received, only 

the receiver has been 
attached because of an outstand ing 
RIP reguest. 


2 Run state is applicable when the 
TCB Pape @ indicates either: 
xt noraal process state 
stop requested at eoj. 


The main loop is left when the TCB 
procens byte indicates 
c*s* stop reque sosted 
@.g- PDRAIN issued) 
e-g- line error occurred) 
be pba penoes peanee see t08 
n rece} 
c. when ptt ess tee has been 
received and processed. 


2a The record presentation routine 
deblocks and decoapresses a 
ical record fros a TP- 
buffer and presents it in the 
presentation buffer. 


the internal ord interface. 
The address of the record is 
maintained in the WRWA. 

The cecord format is: 


Records are passed according to: 


§ HODULE | LABEL 





IP@SSuP 





2c 


WOTES { SODULE | LABEL 


The record presentation 
function returns with a bad 
Fotern code when Sd data has 
been cocyect!y forratted in 
the TP -but er, Or when the line 





driver has posted the receiver 
due to a forced termination 
reason. 


The Rate fs system say 
reisate | he’ transmission of 
ata by submitting an abort 

transmission recor 

SCB = X *8O®. 


The console data are received 
in BJBE nodal sessage record 
foraae WAR k and are passed to 

2 g general a aessage 
pad ecords 
are nore ally “queued, =P, to the 
PHET con ce iver 24 the 
line Ciear. peomuie rte SHR 
records aS eM . eaved with 
JOB or 


te resect gate ore accord ing 
Follow gag Feceras a are passed: 
° ‘JOB He. 

- Data Set Header t record, 

: JOB da 

e OUTPUT data © record. 

If an end-of-file record has 
been encountere anne 308 or 
OUTPUT data aust be Sale to 
the were either f 


or loca 
oz 5 for forwarding to 
an external node. 


Pree reseurces according to 
termination reason. Perfors job 
cleanup in case emergency 
terazination is 
final coatrol reguest to 
transaitting sy 
termination routine is entered: 


. th 
*- PUcciver sainiine’ “"° 


b. iotat Power when the 


termination routine 
({IPUSSTR} has been 
iven coatrol b 

OVER task sel ion. 


The POVYER terminator after 
percorm ing cleanup of the active 
quae and data file returns 

trol to the receiver 
teraination routine. 


Spon retara the terminat 
céde"*U*has been changed 208 sana 
an indication has noes Pag in the 
?CB that the local P 

terminator has been pte Ae 


The receiver work storage is 
released, and a final cleanup is 
done of any TCB owned virtu 
storage. 


b 
SRLV 


Indicators are set 4 Feguest task 
entry deactivation op Ps 

driver and to indicate +e t the 
receiver is about to detach. 


The receiver processor TCB is 
taken from the TCB daspatching 
chp in — the TCB storage is 
relea 


t 
$6 
SDBT 


ee re een err enreren: 
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IPWSS$ER - End-of-PFile Processing 


ruPur PROCESS 








: 
e 

| 
BRPRSRCB Sern meet coon ern one e=, If preceding record not a JOB tr 
JeRPRSRCE the’ current: jop must be Aaa 
A- ~Request aboorgal tersination. 


~Set reason code for termination. 


}02| EOF processing for JOB receiver: 


Add Q-set to Q-file. 
Release Queue Record area. 


C. clear real and virtual address of 
queue space. 


Release initial DSCB entry. 


4 
| 
l ee J 


DSCB 

DSTCDAST 03] BOP processing for OUTPUT receiver: 

BSCS? A. Prepare ing fields in PCB for 
current D entry- 

Q-Record 


add current Q-set to Q-file. 


(|= 


Release Q-REC. area. 





Infora local operator about specific 
received unit. 


Reset job state to job inactive. 


i] & 


Return to caller 
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roy iG 


D. x OUTPUT data is AS nates processes 


ata es and 
for end destination: 
notify user aboet completion of the 
_sysout transa ission 
E. De-chain and release current DSCB 
entry. 
sSeese ss $=55 55 ¥. If another DSCB en to coe 
process, sctive bec chain [ees / 
re t add-t aeue function for 
next DSCB entrf. 
cat 
<<< Complete account record and write 
account record to account file. 
BRACOURT 
Account 
Record 


To Mainlineecse 
r] | 





OUTPUT 


ee oe ee en en eres ae 
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IPW$$HR - End-of-File Processing 


1 
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A job trailer record aust _ be 3D 
followed by an EOP Contre record 
according to MLI protocol. 


On receipt of the BOF recocd th 
receiver takes over Eespousipility 
for the received unit work. 


The number of cards transsitted 
has been. counted in the account 
record. The card count is copied 
into the Queue Record. 


The JOB is added to the queve 
file, using the queue management 
function. 


Por output process data ma 
have bes sb boled wit multiple 
ets. The a 
ibution chai @ScB()) aust 
be processed t each queue set 
onto the output aecase 


The actual data file control 
words are copied from the 

current DSCd@ entry ZO prepare 
for the add to queve request. 


The geese managerent function 

aAdd-to-Queue iS used to chain 
set according to its 

. ifier, crass and priority 

to the Q file 


NOTES 
letion of OG?PPUT data 


with “agstination £ for the 
q 3Y stes (local, or 


se 

ioe aad Seas 
WRBSI JOB/OUTPUT obnare jobnbr 
RECEIVED FROM nodeid FOR user 
Bote that output, to be stored for 
forwarding to another node, will 
not cutae’ # Sct y asg t to be 

que’ 

The poet ey F recoee is updated and 
- pe ss end time. 

The Pat-Accouat Seagtion of 
account Rg or hae voked to 
write t he 2 @ account 
record: ontd the account file. 

Th onocat afhStotce will be 


data ere vith: 


MER vad POTRT Sd vB de 


vaneibed job 


Chart NR 
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IPWS$$NR - Record Handler 
ImPpoT 





WRWA 


WRUSREXT 


oe ree a an ae a ee ee ee ae a eee oe 


= 


Fresentat io 
Buffer 

RCDRCB 
RCDSRCB 
RCDlen 
data 











= 
= 





OEE OTOP OTE FE Oe BODE 08 OF OF 00 or eh et 09 E88 OF Coen ated 


> 
WRUSRBUP 
i-----—> 


H 
1 
| 
cr 00 oe cee ee oe oe d 


> 
Tatersed-— 
iate Buffer 


———— a 








NOTES 


The PNET RDR user exit routine is 
called if ava ble and specified 
in the POWER macro. 


Return to the aainline routine is 
made whenever the PNET RDR user 
exit routine has indicated that 
the current record should not be 
processed due to: 

e Record rust be deleted 

- Job aust be flushed 

- Brroneous actjon performed by 

the exit routine. 


Record processing continues. 
whenever either the record is not 
_a type to be passed to the RDR 
exit routine, or the RDR exit has 
ind icated : : 
e A record has been inserted. 
- A record has been rodified 
- Record has been normally 
returned. 


JOB or OUTPUT data received from 
the network aust be del ted by 
JOB Header and a JOB Trailer 
record. 
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PROCESS 





A.}PHET EDR User Bxit Processing 

ar-3.0 
eco 
[= 


B. When termination requested or 
record aust 7 


ignofed : 


Select depending on record t to be 
proce ssed’ (HCDSECB) 7 aur 


A- If JOB Header: 


JOB Header Processing wa-3.1 


B. If Data Set Header: ; | | 


Data Set Header Processing So 
BR-3.2 | 


C. If JOB Prailer: 





D. If JOB datas 


Spool JOB Data Processing 
wkR-3 .8 


E- If OUTPUT data 


Spool OUTPUT Data Process in: 
3 yp-3.5 


FP. Else set STOP code 





: 
| 


Release intermediate buffer whea 
allocated for user exit processing. 


node, 


If user exit indicates ins : 
°o 


present original record aga 
user exit routine. 


eee 


Return. 


To mainlineses 
=] 


ROTES 


The data stream received is 
scanned for: 

JOB Header record 

« JOB Trailer record, 

e Data Set Header record, 
- Data reccrds. 


Becord type selection is based on 
the r header provided in the 
record control vord: 


The SRCB indicates for: 
ata recor 
JOB Header record 
DaTa Set Header record 
JOB Trailer record 


AR interned sate data buffer has 
been allocated upon return fron 

the exit routine whenever the user 
has requested record rodification 
or rad insertion. 
Whenever the current 
2D. ed by the user 


REP 
USREXIT 


regora is. 
exit routine, 
the record handler aust pass the 
original record again to the user 


exit routine. 





JOB Trailer Processing Fa ete te eee ee 
wR-3 .3 





Property of IBM 


OUTPUT 
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IPWSSHR - Receiver Tera ination 
IgPor PROCESS ouTPpur 


Consol: 2 
spnee' 308 9859°°" 
REJECTED 





e 
e L “1 
adcheg From VSE/POWER Terminator 


eerste gbod evan boundary infors local 
Sesneaiee nh, othery ise that the receiver 


ait Sania eat Cleanup for JOB receiver. 


Clean active and suspended 
distribution chain for OUTPUT receiver: 
A. Dechain DSCB froa top. 


-B. Delete queue set, free queue set. 


C. Release gueue record space 
conditionally 


D. Release DBLK space conditionally. 
B. Release DSCB space. 


P. Repeat pr ati CB 
TCBEST1 en Ties are Jequeued . a a 


TCBEPGR Che WJE data streaa 
PCBEPRI D data stream not yet aborted b 
transs itting | systea, and se ss i08 
ve (no Lin Sra} supase tina 


request to transsitt 
"are 
A- When response to RIF outstand ings 


yon eee 
eee ge 
/EPWALBUF | <= 


t 









J 


- submit BPGR response to RIF 
B. When EOP receiye? and job boundary 
reached normally: 


- sabsait transmission coaplete 
response to EOP. 


Cc. Soonaiiy: boundary not reached 


00 05 08 08 60 69 Fe 00 08 ce ne 60 09 80 a8 08 08 


- subrit receiver cancel ueste- 
ERUSRBUP | aaatahneeianenane - purge data records when ABORT 
or EOF not yet received. 
: 1. leave patge cup shen: 
FS -1 error oc e OF 
pare abate | : - signoff received, or 
pare abate | 3 - or eof r ived, or 
3 - no record wed. 
: 2. console asg/cad are passed to Console Hessage : 
: general aon sere ice. ASI TASK B 
i--~-------3]05] Release intermediate storage areas. 
[scerpaw | [enenmmeneates (= fest if receiver has been drained: 


- inform local operator about 
drain status. + 


Cleanup buffer geeues: 


WRPROCBYF Soest en sees ees eer ee A. test_if currert process buffer is 
still to be fr 


Be Frangter existing beffers in 
queue to the free q queue. 


C. Release free queue conditionally 


IF accountin resent, write account 
record to ‘aceonnt tile. 


If ABORT received durin active session ; 


- Sent RECRIVER CANCEL 


Return 


to Hainlinecee 
=3| 
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IPWSS$NR - Receiver Termination 
NOTES 


Entered by mainline with a reason 
code indicating the specific 
termination catse. 


Tera ination reasons: 

- EOF or ABORT received fron 
transrgitting systen 

- job state error detected 
eceiver. NCR record out 


uence. 
- external STOP by operator 
























{ HODULE § LABEL NOTES 
a Giesnyp of the HJE data streaa is 
eopes @nt upon the data strean 


4A A raission-not-granted SPUT 
cohtrol request is returned to 
the transmitting systesz to 
avoid a hanging transmitter. 


4B This is the normal tera ination SpPuT 
case. AN EOP request i 


1 REP {| SODULE | LABEL | REP 





















3 
AI¥ for receiver issue returned to the transaiting 
- STOP propagation by line te system as a response on itS BOF 
- presenta ion error detect by request. 
- the record presentation : 
| function. ac Parging iaplies that logical SGHS 
records are obtained froa 


Entered via PORER terminator 
routine. Task selection aay have 
passed control to the local POWER 
£ 


presentation service until EOF 
or ABORT or SIGHOPP is 
detected. 


Data records and control 
records are ignored. Hessages 
or commands are passe to | 
eneral message service, which 

itiates further processing 
when appiicable. 


5 Release following intermediate SRLV 
storage areas conditionally: | 
- Storage for Job-header image 
- ajterhate presentatjon baffer 
- alternate presentation __. 
' storage for inserted/mod ified 
user 6xit record. 












errminator which performs queve 
ile recovery for the current job. 
The local terminator after 
pezgore ing local cleanup reloads 
registers (from the TCB panenge 
save area) and returns control to 
the Peceayee teraination entry 
point. 


1 Inform the local operator wath msg 
WBEI when the trahsmission has 
not normally ended. 

IRB6I JOB/OUT DATA 
eicebans @jobnbr 

Om node REJECTED, 
RC = returncode 






















1 Sote that the receiver does not 
may release the To-Be-Sent-Queve 
ander any circusstance. 


7A If a process buffer is still SBUP 
ocatstanding, it must be 
ze carned tO the free queue by 
ings 


If a _ stopstate occurred prior to 
receiving the job header record, 
the message reads that receiver 

for node ann aborted. 


2 JOB cleanup is required when the 
queue record has not yet been 


released. ipwSbuf rnodezin,type=free 

Cleanup is performed b sin Ss 7B The receiv transters the BUF 
ueue Fanagement to aelete and ial buffers oa the received queue : 
ree the carrent queue set from to the free queue by using: 


the Queue f 


Storage cleanup requires a release SELLY 
of the queue record and logical 
buffer ace. 


i £ 
aahects atype-get,vwait=no 
ipwSbuf anodein, type=free 





> Eesha li 2°0r Sbg‘zcatferee 7 aettonpey'eae Beffse Bost fu — 
e ¥ 
processing routine. be relbabed asing=: 















When the DSCB chain has not been 
dechained, the associated queue 
2 be deleted from the queue 
file. For the active DSCB entry 
this action aust be done 
cpad stsonaity The queue file 
cleanup may have a done by the 
POWER termination routine. 
3B Queue creenae is performed $FQs 
using the P ueuvue : 
management to delete and free 
the qaeve set from the gueue 
ee 















ipw$buf nodexin,type=zrelease . $RDC 


8 Write account record to the SPAR 
account file to indicate that 
abnorsal tersination of the 
current job or oatput entry has 
occured. 











9 If a primary ABORT (i.e. this 
ABORT is no acknowledgement) has 
been received, it has to be 
ack now ledged by a receiver cancel 
record. 
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IPW$$SWR - user exit handling 
Input 







Entry paras 


oL 






e 






R 2 


[acs/secs } 


/ 
= | 
a 








Rk 0 


{RCDaDDR 1 Ser nee em 
[a | 
> 


> 


7 


coon o> 


OF C009 OE OF OD Ee DORs OF Fe Fe re Eh Se ee Fe et Oe 


Cee POOL OR OT Oe Oe EN DE SR eH eT OF ee 


ace cae ee cee es ce ce emcee ay ae 


! 
' 
t 


996 





INSERTED 


or 
MODIPIED 
Record 


' 
‘ 


Ven 
[3] 
~ 


pred Oo on cee es ee ne ee os os gees er eee es 


ee ae ee ae Smee ae ge ee ne ee 








NOTES 


1 The data type is tested in the. 
SRCB of current record. Pollowing 
records are candidate for user 
exit presentation: 


job header record 
ata set header record 
ob trailer record 
ecl statement of 
Ob input 
ile transfer from jes 
starting with: 


* , or 
c*7ae or 
ceee ” 


Other type of zener records and 
all output rcecords are not passed 
to the user exit routine. 


isters for user exit: 
record address 

record length 

return address . 
entry point user exit 
byte 0 -14 x*0000' : 
byte 2 RCB of record 
byte 3 SRCB of record 


registers: 
record address 
record length 
return code 


Entry reg 
ho: 


tant 
iin 
Nasr 
eens 


5s 


PROCESS 


Licensed Material - Property of IBM 


OUrPUT 





Proa 


| BODULE { LABEL 
OSREXT 


IPWSSUE 


record handler 


Return when record not a candidate 
for presentation to the user exit. 


Enter user exit routjne when current 
record represents a job~header, 
job-trailer, dataset“header, or a jcl 
input record. 


Return code = 0 recess record). 
Indicate that A can be a 


normally. 
[ eee ze 
—/ 


fos } 


Return code x*04* (record deletion) 


A. When deletion alloved indicate that 
record aust be ignored. 
B. When deletion not allowed for 


current record set teraination 
reason code. 


Return code = X°08* (record insertion) 






YE ee 





NRUSRBUF 


Teap buffer d 
INSERTED 
RECORD 


Tera 
Indicators 


A. When insertion allowed, convert 
record into internal froszat. 


Be When insertion not allowed before 
current record set tergination 
reason code. 


Return code = x*10® (flush job/output) 


were wee oe ee we ee 


A. Set termination reason code 





Return Code = x*t4a® 
aodification) 


A. When nodification alloved for 
current record, map s ied record 
into alternate data buffer 


B. When modification not allowed set 
termination reason code. 


(record 


0 00 00 00 00 08 00 00 00 20 08 00 00 oe 09 08 08 00 00 00 06 oe OP oo HE OF O8 O0: 


Return 


to record hardlereee 
e 
=] 





t BEP NOTES 
deletion is not allowed for: 

- job-header l 
- data set header 


} MODULE | LABEL | 


REP 


- job-trailer 


insertion is not allowed when: 


- job-header is processed. 





VTURCD s 
data buffer in which the in =“ " ee 


user record is converted into 





internal format. 


The inserted record vill be 
spooled as a data record. 


The aser is allowed to flush the 
current input Job or output data 


t 
Record agodification is onl 
allowed for a JOB header, Bata set 
Header or Job Trailer. 


APS OE AE CE OER CE Se 
yt SRT EY STEN 


The Receiver allocates a tempor 
data buffer in which the modifi 
record 
format. 


CHVTURCD | SGVS 


} 
The Receiver allocates a temporary 
serted 
| is converted into internal 
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IPa$$BR - JOB Header Processing 
Iypur PROCESS OUT PUT 


fj 


e 

: SS 

ece >From record handler ‘| 
< 





4 
 aenanmnmmatiasist | Test the job boundary state: esate 
A. Reject the new JOB Header when job 
boundary is not applicabie: | TcB 
=| west abnorsal termination. 
-set reason code for termination. TCBOV 


B. Branch. [o=e73 eel 


> Reserve storage and copy the JOB header 
Se ee to Shteraed late Storage. Keep pointer to 
JOB Header in workarea. 
A- If termination requested: eee >107 
- set reason codes ==) 97 _] 


oo | 
Logical Data < 
Request a quese record froa ayese free neietneenimmnend ————> 
mgs and eate Ist record 6f gueuwe 9 ----------—- 
set. 
Reserve logical data area, and obtain 
storage for initial DSCB. 
Queue Record < 


™ 

A. If termination requested: coe >407 ; 
- son code? coo 07 | 3 
3 





set rea 







Presentation 
Buffer | 
JOB Header Pts a aS 
Record Sewer nn me eee nna) B. Update gueue record with info froa —— 
JOB Header. } 
aa ae | 
DEB | 3 
MNEREO Pee een en)> C. Update jobnumber in aaster record, eon n>"p : DSCB < 
and save nev jobnusber in queue 2 2 
NJHGPRIO meee e nee est 2 
San? D. Convert JES priority to POWER ———— : DEB 
priority. : 





Initialize account record. 


| 
| 
| 
| 
l 


Indicate job active state. 


The eguired TCB fields are updated to 
spool be JOB Header record onto the 
data file and invoke data managerent to 
spool JOB Header. 


fo7} Retura 


to record handlerees 
=| 
[*, 


v 


5 = 
w 
| 
- 
i! 
ie! 
| 
ae TY SEED SOAP RS PSY SE GOP GERMS SFT ES PO SE SEE SS SA SSE SP SO 
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IPWSSNR -— JOB Header Processing 
WOTES 


{| SODULE ij LABEL | REF 
JOBHDR 3a 





NOTES { MODULE | LABEL 
1 The JOB header precludes job data 


ene meen 


to be coming - The receiver sust 
uarentee that it has reached job 
oundary state during preceding 
data transaission within the data 
stream currently handled. 


The JOB state is saintained in 
®TCIB Ts 


. ob active state 
° ob inactive state 


to obtain real Storage for the 

logical data area (DBLK-area). The 
storage is used to write data onto 
the VSE/POWER spool file. 


to lack on resources an 
external stop, terminate the 
processor. 


The ist g-recora is initialized 
with POW defaults and with 


information derived from the 
JOB header record. 


Reserve the disk managergent 
block DMB and obtain the 


Ate Y Sones tput) 
. e@ outpu 
orig inal §3p hoaber 


The command code for JOB header 


2 Virtual storage aust be reserved $Rsv carrent job number from the 
to keep a copy of the JOB header master record. The qe nuaber 
in storage. in the master record is 

. ; updated. The number is reset to 
The JOB header is copied from the @ im case the current job 
prementst ios buffer into the JOB Ruaber is the saxinus j 
eader storage humber supported (32767). 
The address of this area is Be in Release the disk management block 
the receiver workarea BRJHP 7 after the master record has been 
because the JOB header is held in updated. 
storage until a JOB trailer record re 
is received. ene account record is initialised 

withs 

3 The reserve queue function is used ALLOC SRQS System date, tise 
to obtain gueue record storage, to -jobnaae 2 mnuaber |. 
reserve a free queue record and - zag tne or, destination node 
the Ist trackgroup. pare ‘ . 

; -Ofiginator, destination user 
| The reserve queue function as used SRSu name 











The buffer control words in the 

TCB are initialized with =: 

~ real _ and virtual address of 

Fag Logical data area. 
cation for eupty data 


The DSCB is used to provide 
spooling formation applicable 
for the data set defin by a 
DS-header. 





record, the record length and the 
address of the JOB header to be 
spooled are pat into the TCB 
record control area. 


The data aanagerment function *Put 
Data Record*® is invoked to spool 
the JOB header on intermediate 
storage device. 


IP allocation sasaccess£ att due ! 


Chart NR 





267 


Licensed Material - Property of IBM 


IPWS$NR - DS Header Processing 
report PROCESS ouTpuT 





permis E 
[e- © >From Record Handler 
TCB / 


[cass ] wren nen = -~--——---> 101} Test if DS header alloved 


A. not appl the eats when job boundary 


opetere ae termination 
. a termination reason code 








wRACOUBT 


— Increment SCR-count in account record ee mere ee cree > 
ee Por JOB data : 


A. Spool DS-Header to D-file, 


B. Update gueue record with DS-HDR fees” 
upgate g E77 P7] 





WRWA 

Pres. Buf. Buf. 
RCDRCB 
RCDSRCB 
RCDLEE 


508 | Por OUTPUT data (LST,PUN) when preceding 
record is JOB Header: 


DS-Beader 





- Bpdate. initial DSCB entry with aa aa a aaa 
DS-Header characteristics. 


BRDSIBIT 
ie DSCB in active distribution I 
spool” DS-Header to Data file for 
ooo. : 
coy TG 


Por OUTPUT data (LST,PUN) when preceding 
record is data: 


[ WRDSACT 
> 


DSCB 


-inactivate the set ire | distr chain, 
wr be DBLK to data-f 11 
erelease logical data puffer. 


Allocate a Kew DSCB entry and initialize 
it with the DS-Header characteristics. 
Search for matching DSCB entr = active 
and inactive DSCB Chain. Use 
DS-Header characteristics as selection 
criteriua. 





A. If entry oend in active 
> distribution chain 
-spool DS-Header to D-file for DSCB. 


B. If ent. found in inactive 
distribttion chain: 
eAllocate new DBLK Area 
sread back DBLK froe D-£ile, 
a -reinit spoo. A dng fields 
a eS 7 Stransfer DSCB to active distr chain BRDSACT 
eae Zspool DS-Header to D-file for DSCB. ‘a 


C. If no DSCB entry floand, use the new  ~<--<-s 9 > «—~DSCB 
distribution 
eAdd@ DSCB to active distr. chain, 


pe os EC CREPE APTOS SO EPC MEE EAA PED AD SE SC AA CS PME AS SAS EDA ES-ES HEMP PS EO TIOY 





| - update queue record vith DS-HDR See en ene 
info 

eAllocate Queue Record Area, 

eAilocate DBLK Are 


a 
<Update queue record according to 


' > _Job-hea er and ds-header info, 


WRJHDR 
| Sages Es sary | oa Joe Hester to D-file 
= { Senet S58 {Header to D-file for DSCB. 
fa Return 


to Record Handler see 
=] 
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epee | | 





NOTES 


A DS-Header contains information 
es routing control and specifies 
data set c arecter istics or the 
data records which follow the 
DS~Header (s) . 


The Routing info indicates if the . 
data following has local or 
external destination. 


Por sysout data the 
CharaCteristics define the output 
attribates necessary to print or 
punch the data. 


When receiving output data it may 
be possible to receive raultiple 
data sets which have to be cs 


into different VSE/POWER queue 
sets. It may also poetenee that 
a data set Rust be distributed 


towards various destinations. 

se E/POWER A peed the data streaa 
aultiple guste sets for the 

data set to distributed. 


Because of the possibility to 
create multiple queue sets the 
receiver maintains two DSCB 
chains: 

Active DSCB distribution chain : 


Bach_DSCB contains all required 
spooling info for queue file and 
data file 


euspendes DSCB chain : Contains 
the dscb®s which define re gueve 
sets for which data spool ing 
temporarily has been suspended. 


The receipt of a data set header 
causes : 
Generation of the first active 
DSCB entry, when the first 
DS-Header has been received. 
Generation for a next DSCB entry 
in the active distribu tjon chain, 
whenever sultiple distributio 
becomes applicable. 
Generation of a new DSCB entry in 
the active distribution chain 
whenever a new data set must be 
generated. The data set heade 
Characteristics are tested an 
compared with the queue record 
characteristics of the existing 
ueue sets. 
aie enSion of the active 

ribution entries uheneres the 
Pies DS-Header has bee 
encountered following a ” preceding 
data record. 
mesaspe son of suspended DSCB 

trys whenever the DS-Header 

udes a data set which can be 

Pombinated ed with an already 
existing queue set. 


NOTE =: Process of DS-Header record 
is split into following 
subroutines. 





For JOB aoeee 
- DSHINPD for any. RS Beader 


Por JOB ooteue 3 

e DSHFIRST first Ds eoeeer 

. DsmDATA : Ficce"S¢-Header 
received after data. 

- DSCBSCAN : scan for equivalent 


DSCB ent. 
- DSCBREW =: aitocate bev DSCB 
entry. 
DSCBACT allocate to active 
DSCB en 
DSCBSUSP allocate to suspended 
DSCB entry. 


BODULE [ores . § MODULE | LABEL | REP | LABEL 


DSHDR 


i REP 


WOTES 


Por JOB input all DS-headers are 
pool Or same gueve were 

Haltiple destination is not 

applicable for job input. 


Sample for job input: 


JOB-Header 
DS-Hdr (optional) 
data records sysin sode 


DS-Hdr (diskett ¢} 
data records 3540 data sode 


ds-har (cards) 
data records sysin aode 


508-?railer 


Por DS-Header containing a general 
change section the sgaxiauam record 
len must be updated in the 
Queue record only in case the nev 
record length increases. 


Por DS-Header containing a 
VSE/POWER section 
transfer of 35 
records, the 3540 device type code 
must be copied into the geen 
record and ioe © .Jeserat Rereoe 

byte must accordingly for 
power Spooling purposes 


Por DS-Header specifying 3540 data 

mode records the general purpose 

byte Bust be set accordingly for 
B/POWER spooling purposes 


aS case the receiver processes 
TPUT data, containing peuesepte 
data set headers the da 
characteristics are Conted ee 
determine if the data following 
regeitee spooling for a new queue 


eoliee critical attributes are 
compar ith the critical 
attributes from gener section: 

- penaee node nae, 

- target rerote id, 

e dis gisposition. 

. Gatpae wclass, 

2 Gatpot t type (LST, PUN) « 

Critical attributes from VSE/POWER 


- priority, 
isposit ion 
° : Cospact ion fable nase. 


ceitjcal attributes from 3800 


- 3800 printer setae info as 
- (flas copy group, 
Bode Raantaroent On) - 


The record control fields of the 
CB (TCCC, TCR¥, TCRL) are updated 
for spool ing purposes. 


The data Eanagouent is invoked v 
Put-Data-Punction to spool the ba 
Header onto the D-file 


The Q-record is updated according 
to Job-Header and DS-header info. 


In case a data set has been 

pr receded with saltiple DS-Headers, 
ef ip ing . Warious Target 

Destinations, the keceiver 
jenerates s ‘ate DSCB entries in 
@ active distribution chain for 

each target dest ination. 


A DSCB entry contains the Queue 
Set characteristics obtained froa 
the DS-Header and contains ali 
data file and Queve Pile info to 
allow spooling for the queue set. 





Bach target destination results in 
spooling for a new Queue Set. 


t BSODULE | LABEL 


f 
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IPwSSHR ~ JOB Trailer Processing 
INPUT 


ob. 


Pore aS eo ea >for} 


Sa ee RES eee tee pe NSE 
wy 
Q 
i>] 


WACCHTC 


JOB Trailer 


i 
ey 


00 00 00 88 00 00 08 80 oe 2098 85 08 06 ne 4 





seen. 
Sore me 


pretcensen cesses 


| 
| 





NOTES 


The JOB Txailer is out of sequence 
when the TCBJB field indicates 
that no job is active 


The record control fields 
TCB are updated to ool the JOB 
Trailer record onto the D-file. 
The SOD Flag in the General 

Purpose Byte of the TCB is set. 


The data sanagement tyact son 
put-data-record is invoked. 


The logical data buffer is 
Eeseased for the current queue 
Ss ° 





ceomeaat 
= 


w 


in the 


a nen ter 
submitted 


a aera spitting systea has 
within one out tpat. 


streaa, the 


receiver may have queued DSCB 
entries temporarily into the DSCB 
suspend gueue. 
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ourPuUT 





Test if JOB Trailer allowed. 


A. reject che. JOB fra iler when job 
boundary is appl cable 
“request a Pcmal termination. 


-set reason code for termination. 
B. return to caller. eco” 


Update BCR-count in account record 


Update record control fields in TCB to 
ool JOB Trailer on data file. 


-Indicate End-of-Data- 


JOB Trailer processing for JOB receiver. 


Write JOB Trailer to data file. 
Release logical data buffer. 
Branch. 


A. 
B. 
Cc. 


cyan 


| 


eaten TCBDV 


JOB frailer processing for OUTPUT 
receiver. 


A. = suspended DSCB chain to active 
CB chain. 


Process active DSCB chaine 


TCB 
TCBDAST 
TCBQFST 


ed 





a. fields in PCB for 


cartenst DSCB an ry. 


Allocate Ari data baffer 
conditional 


Write JOB Trailer to data file. 
Release logical data buffer. 





CTUIMIRIS RI MISTS) 


| 
| 
L 





-! 
£2. If another DSCB entry to eos > 
process, repeat JOB Trailer [e--7 
processing for next DSCB entry. 
Return 


to record handlereee 
ye l 





{ REF HOTES 

The “6A The actual data file control}  # | °° °»°»;+S control 
words and gueue file control 
moras are Copied Jed the 


spooling to carreht gubue’ set. 


Allocation for a new logical 
Gata waster is necessary when 

data buffer has 
a released ney soust - This 
is appl the DSCB 


| SODULE — OTBS ee —CC“‘( COOL | LABEL 61 REP LABEL | REF 


i 


JOBTRIL 


SRLY 


entries curently transferred 


from the suspended DSCB queue. 


The data managernent function 
put-data-record is invoked. 


@ curren ical data buffer 
ie release qs 1e TCB data file 
coatrol words are saved into 
the current active OSCB entry. 


ACTSUSP 
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IPWS$HR - Spool Output Data 
Iuput PROCESS ae 







record handler 


[ NPWRCDPT 


> 






NRTCBRW 


Ae - coneert ASA to waching carriage re enna > [RRICBRY BRICBRU (1) 
contr reguest ai ri 
conversion= table , WRICBRY (2). (2) 


£ 4ST output record with aachine 
G aicating write and stop to ehesnek™ 4: 


ha If output with ASA Control: 











. 
CHVASATB 3 
2 A. ~ convert atta o rmachinecodes 
fate Sc ceteteteated 1 fetehenehee valid for POWER spool functions. 
t - process Sanen records 
ASA to acc . 
Add one to record count in accoant woe 
> record. 
SKIPCC 
WRTCC 
aeted 1 Keene A. P ling fields in TCB for rece 
pict Hi carrent bbe CB entry in distribution Prac Gar gk Say am gag eT 
NRTCBRW (1) : | Saiss rceev 
i---] [------------> B. According to active vest (5s By % 
cdr babel ( ASvoke gata managenent to spool 
ee ~____? record(s) onto data file 
{wapsacr_ | c. if run Load uyaed off: [roo 10S | Dist. Entry 
[ iciicaosie DSCB 
>DSCB De Save current a spooling fields in EE | 


current DSCB entry. 


DSWEXT Mites a casts Ee i another DSCB entry in ae, QRCcB 


| istr tion chain, repeat 


Process active distribution chain: = 


Mt 


a isrr sere process for next 
entry. —_—————— 
>DSCB > 3 


To record handlereee 
e 
=| 


7 




































NOTES {| SODULE | LABEL 


1 ASA carriage control characters OUTRCD 
will be converted to machine 
command codese 


t BEP ROTES NOTES. F BORUEE t LABEL 0 BEPC SODULE | LABBL 


The distribution chain ~~" @he distribution chain coatains at | | °&+;» 
least one dscb entry. 
zac actgal s 1 in £jelds are 
ied con the DSCB into the 
tc tdata t file control vords 
and queue file control words). 





Two spooling reguests ate 
prepared for LST records t 

Satisfy correct oeoling irefer to 
ASA conversion table). 


An ASA character for punch cards 
is converted to the punch comsand 
write-feet-select stacker. 


2 The rgachine carriage control SPDR 
request, indic icat ing wate. 3 and skip 
to change 1 (x°89%) may be 
received from other HJE steas. 
Because VSE/POWER internal printer 
restart togic does not support 
this specific command code, the 
receiver. must generate tvo spool 
reguests: 


- first request: write vithout 
pie Ee west: skip to 
* Ghannel 12 Fr 


4% The output request(s) ere peeParet 
in the receiver reque 
eth in the réce ver Oe rkares 


The cgtput request have to be 
spooled for the queue sets which 

ake addressed by the DSCB's 

contained in the active DSCB 


Process the 1 requ st (s) 
prepared in t spool request 
words contained in the receiver 
workarea. 


The page count maintained in 

the quete record is updated 

whenever t the current Command 
icates page movenent. 

(skip to channe or the POWER 

issn hew page command 

code) . 


The line/card count maintained 
in the gueue record is updated 
whenver the current command 
code indictes line/card 
moverent. 


Data_managerent is invoked a 
spool the current data rec 
onto the VSE/POWER data tre 


tee reason code indicates that 
receiver has been 

tera inated during cooling tire 

due to an external termination 

condition. 


The TCB data file control vords 
and the TCB gaeue file control 
words are saved in the current 
active DSCB entry to all 


sce chas entries in the active 
c ow 
spooling for other active queue 


ain are appiicable Sasnover 
the receiver obtains sult 
DS-Headers indicating ault Te 
data Soete pet through the 
netvork. Because VSE/PORER data 
papagopert does not gabport 
multiple destinations for sase 
queue set, the sere ives aust 
reate an additional queue set for 
each distribution. 


DSCB entry contains all 
regi ired 5 spool control information 
points to a specific gqueve 
tecord and DBL buffer. 


Tre DSCB next pointer indicates 
the distribution process 
saat be repeated. 
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IPWS$NR - Spool Input Data 
INPuT PROCESS ; OUTPUT 






soo 3Proe record handler 





BRACOUNT BRACOUST 


WACCHTD Hts ele Update record count in account record. 
= 
> 


NRRECORD 






eoeenee Update record control fields in TCB 






Update card count in Qrecord. 


Invoke data maagerent to spool record 
[24] onto Data file ? 


105 | Return 





to Record Handlereee =e ° . 


ee i | 


NOTES | MODULE | LABEL { REF NOTES § SODULE | LABEL | REF 


The routine handles spooling for ISPRCD The TCB record word is initialised 
JOB data Records. The JOB data with the length and the address of 


records are spooled into one queue the JOB input record. 


The data Record is written onto 
the ¥SE/POWER data file using the 
data mpanagerent function. 


set. 
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comers 
Proceésin 
qr1.5) > 





Transaitter Proc 


Initiali- 
t 






Job 
Preparation 





UT-1.2 
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IPWSSNT ~ Netvork Transaitter Mainline PAGE 1.0 
InPpur PROCESS ourPuT 





Ee From VWSE/POWER task selection 


Entry Processing 
-InStall adresSability 


: = Transsitter Initialization 


uP-1.1 


If any immediate stop state =: ala 4 


Ll 


TCB 


TCBERCB woe enn 


If command/message task : 


A.{Process coasands/messages 
Aaieiaaal Br-1.5 
Be rie [13 J 


Job Preparation 


BT-1.2 
Wc If No Job Available indicated a 
—_--- [o7] If stopstate=S|PIa : =a 


Process records of job/output 
ut-1.3 | 


End of Job Processing 





OR IRINISIS IER ISIE ICIS ISI SEIS Is ee eee eee 





NT—1.8 
----- If stopstate is S or B : [ese 
ell Reinitialize Control Bits rc 
for processing of next job H 
If P£lush and ABORT se 3 3 
Set ABORT indicator ee | 
—- Set stopstate to 1440" in TCB ' 
-— Set ALI status indication to zero (aes 


~ Release of output barter r requested 


{ PCBESTI 


h 
| 


NCB | 

———=—> If stopstate S or £ meanwhile not ree > 
RCBESTS Sec secanabend ial set : P f }05 | 
ECBT DRE 


1 cera t----/43] 3 Issue gaeaaete conditionally that task 
drained 


[14] Clear : To Be Sent Queue 
Buffer in Process 
Pree Output Quene 


CB 

WCBDETE 
SCBDTCH 
Line Driver 
TCB 


TCBBO 


fas} ~- Release task workarea 
- Request detaching of task 
- PoSt PHET Line dfiver 


—_— 


Detach NJE transmitter task 
To VSE/POWER task 


ae 
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IPw$S$NT - Hetvork Transmitter Sainline PAGE 1.0 
NOTES {| MODULE WOTES | SODULE | LABEL {| REF 


The NJE transpitter is responsible 14 Bither of these situations may be 
for controlling the data present =: : 
transaission from the VSE/POWER = SSP LORTPUE Bes been transmitted 
transraission queue to another coapletely Roy ts stopstate) 
node.The transmitter is attached -The preceeding job has been 

by the line driver,runs the ALI flushed. 

protocol to synchronize the 
sending and receiving node on the 
data ream level. rae 

Each transmission of a job is 
started with a RIP and 
terminated,if successful,w ie an 
End Of File signal.Thus the job 
ja? header,dataset header, data, 








| 
411 In both cases the transmission 
uevue can again be checked for 
obs/foutput to be sent. The 
ansEeisSion queue aust also be 
checked in caSe of a Receiver 
Cancel condition since Receiver 
2 a Cancel has to abort the current 
op trailer) is the ALI unit of ob but not the task. This is 
ransgission. . automaticly done via the stopstate 
Por each activ transgsitter there 
Rust be a receiver in the 
receiving node. . 
A NJE transmitter is attached by 
the line river $ 
I 


~- initially when the line is 


H which is set_on receipt of 
Receiver Cancel. . 

To indicate to Jab Preparation 
that the previous job aborted due 
to PPLUSH resp. ReCeiver Cancel 

t ({stopstate FP, H and ABORT 

started and the signon processing and 

is completed 


icated in TEREST Wy Ans t8oRs 
="when a job or output- oF tapi 


for trans&@ission, is put in 
transmission queue : 

The life time of a transnaitter 
task Can span many jobs. _ 

The transmitter detaches itself 
when no job/output is eligible for 
transe@ission. 


1 Addressability is provided for 
Grease data area, base register, 


B/POWER nucleus, task control 


Indicator is set. The fie 
TCBEST1 and the field TCTT sy 
still indicate conditions of/for 
the eres tons job. They must be 
reset. 


The request to release all free 
output buffers from the free 
output gueue, which has been 
issued while pag Papen d the 
proceec=a9 job, is reset. 

o@ the next job/output can keep 
his free output buffers in the 
free oorrte queve for iamediate 
block and second Save area. availability. 

2 All pecenset? initialization for 
e 


12 Between the iast check for 
the transasitter task and partly 


stopstate S,E and the action *Set 


for the composer is done. stopstate to x*40* in TCB* a 


stopstate S or E might have 
arisen.To avoid a final loss of 


| 
i 
Loan 


r 


t 

If a command/esg is in the 
Coarand /message queue all comsands 
and rmessages are sent to the ; 
receiving node and the task checked for S and E. If S or £ is 

found the task will be detached. 


13 This message is _issned only if the NTCLOSE 
drain ge in WCBEST1 is set 
(message 1tRABI). 


4&4 The To Be Sent Queue is cleared by 
issueing $BUP MODE=OUT 
TYPE=PURET,i.e- all output buffers 
of this task still residing on 
this gueve are given to the free 


detached 


5 If a job is in transmission queue 
a RIF is sent. 


6 If no job was found in the . 
transreission gueuve no gore work is 
to be done and the task will be 
detached. 


7 %If an immediate stopstate S/}HIF 
occurred during job ; 
pre aration ,En Job Processing 


a eae eG TT YE ca SE EE I I I A EN EE ET 


$GAa 


SBUP 


oat ueue. keg.7 gust contain 
Biadd ne 


a 
the! tc ress. : | 
" be started.The presence of It may happen eapecsatl with NMR 
the stopstate S may be due to the roceSsing that at detach tine 
receipt of a Permission Not | il 
Seance signal from the receiving 
node. 


there is 5 1 atp buffer, which 
is not yet queued to the To Be 
Sent Queve. Fo avoid a hang ing 
buffer, this buffer is put into 
the free carpet queue prior to 
release the 


(s 


8 Ail records of the Joby cat pet are 
obtained, their type selected, Job 
header resp. data set header 
updated and the records passed to 
the composer by means of the PUT 
macro. 


9 VSB/POWER related and job related 
clean up is rade.The 5 protocol 


ree a ueue 


GF ODE = OUT TYP ree). 


The Pree Output Queue is cleared 
by SBUP ROD. T TYPE=RELEASE,2.e. 
all buffers of this task still 
residing in this queue are freed 
a eir space given back to 
¥VSB/POWER . 


415 The task workarea is released. 
HCBEST? (NCBDETE) and the NCBACT1 
(WCBDTCH) fields are set to | 
andicate that the task ent is to 
be deleted by the Line driver.Then 
the line driver is posted by 

BEO (PECBTLD 


for norkal resp. abnormal | 
transmission termination is. 
run.When End of Job Processing 
coapletes,the transmitter is ready 
to start the next job or to 
terainate,depending on the current 
conditions. 


10 Xn case of an stopstate S or E the 
task will be detached. Setting the field 


=> TCBEO) . 


16 The task is detached. 
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IPWS$SUT ~ Transmitter Initialization 
INPpuT 


ol. 


/ 





TCBEWKA 
TCBENCB 
TCBENTE 


WOTES 


1 The transmitter work area, the 
Wode Control] Block {NCB) and the 
Wode Control Block Task Entry 
(SCBTZ) are made addressable. 


The storage descriptors for the 
transmitter vork area (NTWA) and 
composer work area are written. 
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PROCESS 





Prom Rain Line 


 Seeererereet as Install Addressability. 





{ HODULE |} LABEL 





Licensed Material - Property of IBM 


ourpuT 


i 





i 4 
. | 
tena 
| 

i 

Ver ¥ 


Write storage descriptors. 
Set up pointers. 
Save registers. 


000 05 0 68 oe 0008 00 sem 
2 00 06 08 00 00 Oe 00 OF 80 06 26 08 te OF 8: 


Brit, return to Main Linecee 
e 
=] 


i —-—--=- 2-3 WCWA 
z i-----> 
[ ere 


NOTES 


3 The address of Abnoraal 
Termination is written int 
PNCBERNT for use by IPWSSTE. 
Pointers are set up for =: 
Composer Work Area 
Composer Segsent Area + length 

Compression Output Area + length 


| REF } HODULE | LABEL {| REP 


To ensure proper registers on 
P: Tbe egas 


return from $$TR, if entered, 


all registers are saved. 
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IPWSSNT - Job Preparation 
IsPur 





1 


1B 


1c 







PROCESS 








OUTPST 





-----------— — [fou Get first Job/Output from IKIT queue 
7 : 43 : 
: me rm > A. -— If no job available : coe > 
: 3 ee ie 
: B. ~ Set job boundary flag + -- —---~-- > J PCBIB 
Queue Record 3 | 1 i-—__—_- 
' 3 { ee a TCBDW 
aaa cern eat Semen nn - Save data seek address =< ese ee a t 
: Initiali t a | | nee 
. - Initialize account recor ee 
ucwa 3 | Cea, f } 
NTABRT wane C. ~- If Abort Indicator set : Set tise 
3 interval 
: Get first data record 
i-—-—------ fo3} IF IMMEDIATE STOP STATE [ss 05 
| NCWA 
fos} nogucee permission to transait job or Se tn [ucwapur ! 
put 
fos} | 
[ ee 
Exit,return to erates | : 
as 


#OTES 


To start “1 fo start processing of anew = | ss PREPGOB }SGQS — of a nev 
dobsout at a new gueue record is 
btained (the Get Next Queue Set 
Funct ion & called to obtain the 
swZoutput eligible for 
ransaission.} . If ao job is 
eligible for transmission the 
address of the queue record is 
zero. The job boundary flag is 


set. 
The seek “address of the first data 
block associated with the cage 
record is stored in the ? 


ores tti(‘(‘(‘(CSCSC*C ODOR | LABEL 65 BEF MODULE {| LABEL 
PREPJOB 


i 
ACTINIT 


i REP 
$GQs 


The job boundary ate7 is set. 

The account record (NACT) in 

the transmitter workarea is 
initialized with trapasission 

teiated inforsat ion 

queue record and with 

appr opr iate additional, data . 


The Abort indicator indicates 
that the preceeding job has 

bh this caSe a timer 
aororeal is set as which is 
iong enough tha he 
correspon ing receiver in the 
receiving node can Complete its 
tere inatson before the next 
Reguest to Initiate a hed 
arrives in the receiving 
Note that for each jobsSutpue™ a 
hew receiver is crea 








First data record is sivere © a Job 
Beamer ecard = The first | 
that, : gata baffer is made 

availab 


This test for immediate stop code 
is sade because during Queue 


gigh 

Tr routine 
returns to the next instruction 
after the $GDR macro with S stop 
State indication. 

The composer is called re 7 erate 
and send a RIP es cae a 

node via a PUT R 


¥ 

or ° SPGR* from the veees iv sag Voda 
the task ae posted. by 

driver and 

the transritter. 
after pavaa 
Granted a) 

Granted Hae ) the composer 
returns to the transamitter. 


Exit to mainline is taken. 





BOTES § SODBLE | LABEL j{ REF 


SGDR 
obtained, whi ljaplies 


@ by data managesent. 


oacer activities an I/O error 
happened vice starts 
$$TR and which 


YPE (RIF) tee 
received a pitt ee e@ 


the line 
@ composer returns to 


received a Permission 
or Peragission Sot 


| 
)f 
z 
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IPWS$SNT - Process Records of Job 
INPUT PROCESS OUTPUT 


hl Hain Line 


Be 














| —/ } 
| JOBHDRE oD uae ars 4 oF eeion” ieee 
ee ee ob or Ou anspissi 7 
: | r J JOB HEADER 
ae mong eee me ener em A. - When Job Seader record RECORD 
: pacers | Complete job neader record with : —— = | 
: : t -job nase | ' 
So gmt Class ‘ 
Seis 3 -dest ination 
= ° 3 : euserid 
3: 63 3 etarget SYSID 
iS 4S 4 einput card count ran aaa | 
ar 2 Pass job header record to : 
s 42 $ 2 composer. : Dataset 
So 3S 3 3 Header 
nenoR | teat Seeteeieatneetenet Semele B. - When Dataset Header record 3 Record 
ee era | Complete this record with : — ee Ce 
s° ‘75 5 oS. 3 
2 2 pcetecs *Yest ination : 
s 38 : user $ 
Sos : etarget SYSID 3 
a : line Si 3 1 
so 3 “han suffix 3 
2: 6s : eho of copies : sCWA 
: 3 3 -cospaction aeneeaneteeennenennieted ; 
Queue Record se secses= i t-——--> |NCHAPUT 
ss Pass Dataset header record to 3 
iS Ce composer. : 
QRECTH Bo-3--- = > C. - when Job Trailer Record : 2 
3:3 | Pass record to composer Srna as 
——_— 20 fe----—---- > D. ~ When Data Record : 
Sacce Pass data record to composer cor eooor= om oon amen 
| —— eee : $s NTacT 
2: Perfora accounting eet eeatateneanetened detente d ae | 
| a fos] rf End of Data Term inati “>foe | : ee 
so 38 a een oe ee 2 or an re ination ooo fos } 3 
papaya Senn & 5s Hi 4 103} code except "stop at end of job* (8B) / bem TCBECL 
2 038 oer 
remy | pant EE 
ot Ne 


. Obtain next record | 
| . ; Ps 
i ee Se oe : 
TCTEsS |H|P If no immediate stop state set Ee 
Exit,return to Hain Lineecee 
s 
=] 
v 


NOTES { SODULE | LABEL j REF NOTES 
1 The command op-code associated to NTPRCJB 3 If a stopstate S or H or Fora 
$GDR 





the data record is examined if it Receiver Cancel condition is. 
is a network record {e-g- ol recognized ,record processing is 
header ,job trailer or data set stopped in order to terminate.if 
header record). (Betwork records End Of Data is indicated by TCBGP 
have a dummy op-code of X*FFP*). all records of the job have been 
b g ; sent including the job trailer 
1A Phe Job Header is updated with por record, exit is taken. 
info from the queue record. < 
The transaitter invokes the % The next record is reguested froa 
COBpOBeE by issueing PUT RTYPE the data file. 
(NCR) _ (NCR=network Control 
record )-NCR is coded for Job 
Header record,Dataset Header 
Record and Job 


4D A PITT RTYPE(DATA) macro is PUT 
issued. 


Trailer record. 


2 The count for contro} records 
resp. data records (in case of job 
transmitter) is increszented by 
one. In case of output transmitter 
the data record count is only 
incremented in case of line | 

print/card move thus eliminating 

additional control records (eg. 
skip etce). : 

The current data record count is 


moved into the field TCBECL for 
easier reference by different 
VSE/POWER-PNET modules. 
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IPWSSNT - End of Job Processing 
InPoT PROCESS ouTrpur 





TCB 
TCBIT 
TCBEST1 


5 
| 
v: 


}04] If PGR received and ho immediate stop 
state exists : 


A-}Process Normal Job Termination 
HT-1.8.1 


B. [eee 


bey / 
}02] If BPGR received or imnediate stop state 
or abnoraal job termination requested by 
normal Jon tera ination 
Process Abnormal Job Termination 
HT-17.4.2 
EXIT,RETURN TO SAISLIVE 


eee ewe ee am 





a 0900 co cece, 
( 
| 






| 





NOTES } BODULE { LABEL 


Since a job is defined to be the EOJ 
SLI unit’ of transmission End 
Job Ltd tee fare completes the SLI 
peorcce: of the epob/ostpat 
ansaission either BY SENDING End 
of File in case of norma 
termination or by sending ABORT 
for abnormal termination. 
VSE/POWER~ ,job— an ; 
trgnseission—related clean up is 
nade. 


NOTES { BODULE | LABEL 


Normal job termination is ; JEOJU 
perforsged when a PGR IS received 

and there is no immediate stop 

state (PGR4&-~S4~P4>H) . 


If a_HPGR has been received or an 















iate state S,H,F exists, 
erjination is 
E . due to an error . 
Situation during normal end of job 
process sag abnoraal ‘ 
termination gust be Started, this 
is done via label NTEOJ1. 
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LPWSSNL -— Normal Job Termination 
INPUT 


[rcBEst 1 | 
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PROCESS OUTPUT 
si] 
eee >Prosg Caller 
/ TCB 
Pree all buffers from the Free Output cee ean na ————-> {TCBERAB 
Queue. 4 eee eee a 
prac tmo anna > | PCHIB { 
Send End Of Pile. wena 2+ -- | 
3 3 NCWA 
| : 2 i-----> [ucwaPur t 
[03] If no Transaission Complete signal : ; 
i received =: : 
| Exit to Abnorgzal Job Termination eee 2 
. 5 
ye : 
*y : 
Delete Queue Set. z 
Pree Queue Set. 3 
z NTMACT 
Inforre local operator about successfel : 
| transs ission. 2 cacti 
fo7} Update account record =---—---3--- . 
} - EOJ time Hy Account Pile 
- Cancel Code : : ( 
Write account record to account file 3 f aes | 
Inforre originator conditionally about : 
transreissién completion of job. z 
Reset job boundary fla nr 
J aan l NTWA 
Reset ABORT indicator ween —-> [MTABRT 
fro} Release logical data area and queue 
record area if present. 
fa3} 
Exit, return to Callereee 
2 
31 


NOTES 


1 The Pree Output Queue is cleared 
by $BUP MODE=OUT TYPE=RELEASE to 
avoid an increasing storage 





consuaption of the VSE, ER 

storage pool, which sight 

otherwise lead to a VSE/POWER 
quiesce due to lag of orage. 


2 The sacro PUT RTYPE (ALI) 
MLIREQ(EOF) is issued. 


3 If on return from the WAIT state 
as entered after EOF no X#ISSION 
Complete signal has been received 
abnorral 72 termination is 
started (label NTEOJ1). | 
If on return from the Wait state, 
which follows EOP- transmission, 
an iarpediate stopstate exasts 
there is nothing known about the 
state of the corres enasng 
rece ster (TC sent, RC sent) -Thus 
abnoraal termination is requested 
not to send an ABORT to the 
receiver. 


4 The ape macro is issued to write 
the job back according to its old 
dispOsition.Thus in se of 
dispostion D it will be deleted. 
and when the nes 4 is KEBP it wv 
be rewritten with LEAVE. 

In case of deletion all gage 
records which are allocated to the 
processed job are deleted from the 
qoese record chain.The gueue 

CB are set 


ecord pointers in the 
to zero. 
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i HEP 


5 The $PQS macro is issued. $FQS 
6 Phe SPAR macro is issued. SPAR 
7 Cancel codes used : 

Normal £0J zr*10°8 
stopstate s ZX *308 
| stopstate Fiat x*408 
Receiver Cancel x *50* 

8 If the jobheader record contains a peas? 
userid the message 1RA0I will be 


iseneing the SNTY sacro.The 
originating node can aiso be the 
own systes. 


The transmission is at job 
boundary. 
The logical data area and the SRLB 


Queue Record area are 

released.Since the account work 

rt of the task work area 
c 


area is 
i be released at detach 


this wv 
tine. 
















{ ! 
at 
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IPW$SNT - Abnormal Job Terminatim 


ryPput PROCESS 





bg 


iL 


eee 


From Caller 


ros IPWS$$TR (Task Tersination 
outine) 


‘L. 
~e 
-->foa} If task is console transsitter 


Save current stop state 


terreination enter 
- abnorrsal termination entered froa 
noraal job termination wia IPWSSTR 


or : 
-~ £E sent and no Tfranseission 
Coaplete received 





ca Sc ea 

erence “EASRE F2e8" OSB MESS 

ene z 

a. = ____}fo4] If no Permission Granted received : fees” 
i} ‘| 
te +f ine error or Sign off or abnoraal J 








Send ABORT 


Set cancel code 


J 


| 
IRIN IS IB IMI ORIOL Ie 


‘Write termination message conditionally 


, 
| 


If aba 


ormal termination entered fromfeee > 
xe acee minati 7 [13 } 


If Receiver Cancel 


weer ee 


ie 
If PPLUSH given (saved pebohal depot gran bg A a 
hange disposition according to SH 

- write job ck to XSIT queue according 


to stored disposition 
=] 


A. - Change aaap os, osition to HOLD 
- Write job igh xe XSHIT gueve 
with stoced disposit 


B. 


O00 OE 0800 OE Fe OF OF OF 08 Oe 18 0F 0 Oe 09 00 OF OF Ot Re Oe ee Bhat Os 8 8F te 





- Free the Queue Set 
A. 


PIRI RIMINI MIBIMISI SI EIBIOL EI 


; 
| 


Queue Record ~---->] 12] If saved stopstate=S 


QRECDP 


bessvessnansnanerse arom 


: 
= 
= 
= 
= 
= 
: 
: 
: 
a 


Soe0"3 


—/ 


mm A. If End of Pile sent and no. 
Trans@ission Complete received 
- Change disposition to HOLD 
- Write job back to XSIT queue 


with stored disposition 


Be Write job back to XAIT queue with 
old diSposition 

Cc. If transmitter will be drained 
request start of next transmitter. 


* 
. 


Do accounting conditionally 
Update account record 


queue record area 


Reset ABORT indicator 


Exit,rceturn to aainl inecee 
e 

=3| 

“/ 


[5 
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TCB write account record to account file 
TCBDYV 
—_—_—— anne nn nn n= f 10} - Reset job boundary flag werner 
TCBQV - Release logical data buffer. if present 
- Release if present 


ee 


ourPur 


5 





Queue Record 


—+ foro] 


er 


uCWA 


———-> jucwa Pur | 


OUTER MISSI EIRP ISIEISIOIRISINI SIEM SIS EC VISC COIS EISISIS IS CIES ISIE 


1 


Account file 


era 





| 





peveserd 
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IPWSSET - Abnormal Job Termination 
NOTES 
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Abreviations used :_. 

PGR Permission Granted 
NPGR Permission Not 
Granted 

To Be Send Queue 
Transmission Queue 
End Of Pile 


iW 


ee 
XSIT Queue 
BOF 


Any abnorgal condition which is. 
detected by VSR/POURE results in 
setting a Stopstate in the task 

TCB .This can be ; 

~*S* for immediate stop 
-°F* for PLUSH job ogreee 
~*H* for PLUSH HOLD job/output 

~"B* for stop at end of job. | 


The stopstate S is caused by the 
following events : NPGR,I/O error 
sCcatastrophic line error , auan 
off, PDRAIN,immediate and PSTOP 
immediate. 


An BPGR causes in addition to 
setting the stopstate S the 
draining of the task. 


The stopstate H may also pe caused 
by a Receiver Cancel | i 
condition-When the line driver 
receives a Receiver Cancel from 
the receiving node,it indicates 
this condition in TCEST1 and sets 
the stopstate H.The stopstate H 
will also be set by the 
coaposer,when the Compression 
function indicates a compressed 
string which is longer than a 
transmission buffer.iIn parallel 
this Record Too large indication 
is indicated in the TCB field 
TCBCRIL. 


The sto 


states F,H,E can be 
overwritten by S. The stop 


y S. state S$ 
Cannot be overwritten by any other 
stopstate. 
Any imrgediate ey: State (S,H,P) 
results into an ABORT 
transmission.Exception : If 
Bmergency termination r 
catastriphic line error or sign 
off ) is indicated ,no ABORT aust 
be sent.The stopstates PF or H 
abort the current job.The stop 
state S detaches the task.The 
stop state E has the current job 
cospreret and then detaches the 

ask. 


queue according to PPLUSH, in 

a of S with its Original | 
disposition, in case of Receiver 
Cancel and ®°Record Too Large § 
indication with HOLD. 
In case of an I/0 error IPWS$TR 
ets control.This routine does all 
YSE/POWER related clean up,which 
in this case must not be done by 
the abnorral termination of the 
transmitter.IPW$$TR returns to the 
abnorral terrmanation routine of 
the trans- mitter,using the entry 
point address stored in PHCBERNT. 


1 %If task is a_console transmitter 
this abnormal termination mast not 
be perforsed 


2 In order to perform a proper End 
Of Job processing the indicated 
stopstate must not change during 
this activity~.The curreat 
stopstate is saved and is the only 
used stopstate until the exit to 
mainline. 


3 The TBSC will be cleared under all 
circumstances of abnormal 
termination.This is also true for 
cases where no oatpat buffers of 
the task exist in e TBSQ.A SBUP 
MODE=OUT TYPE=PURNT wacro is 
issued to purge all output buffers 
which are still in the ?PBSQ. Reg.1 
maat contain the address of the 
In order to avoid shortage of 
buffers in the PNET system the 
Free Output gocas is released ($BUP 

MODE=OUT TYPE= RELEASE). 


& An Abort will only be sent, if the 
session has been active, 1-@- a 
Permission Granted has been 
received from the connected node. 

5 If a line error occurred or a sign I 
off is indicated TCBETSO in 
TCBETTC ) no ABORT wust be sent. 
The same nolads for the case,that 
during normal job termination a 
disk I/0 error occurred,which | 
caused $TR to be entered. It is 
part of the MLI-protocol | I 
Standards, that no Abort will be 
sent, in case that an EOP was sent 
to the connected node and 
afterwards a Receiver Cancel has 
been received (or any MLI record 
but Transmission Coaplete). 


In case of stopstate FIH the 
ep coutent is written back to the 
ade 
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NOTES | SODULE { LABEL | REP 


A PUT RTYPE(ABORT) macro is issued PUT 
which causes the composer to 

generate and send an ABORT to the 

receiving node. 





The cancel code is stored in the 
account record. 
Cancel codes used : | 


ABTRA? 


Normal £0J x¢ 
stopstate S$ xs 
stopstate Pi xs 
Receiver Cancel Xr* 


An appropiate termination message 
is sent to the operator (nossagé 
JRASI) in case that a queue se 
has been found : 
~ If saved stopstate=S that 
job/outpat traismission is . 
Cancelled.all states which caused 
this stopstate (PSTOP/PDRAIN, line 
error,§PGR are indicated in the 
message) _ 
- If Receiver Cancel that job 
Goat at nicht ap erp is caicelled 
y e 


ABTREt1 | SGAN 








e@ receiving a , 
- If compression error is 

ind icat in TCBCRTL field,that 
job/output-transmission has been 
Cancelled due to a compression 
error 

- If saved stopstate is Fit that 
job is flushed. 


There will always be only one 
termination epeinpart ba follow in 


pet et | : Stopst. 
Sacens @ 


ang this 
te S,Rkeceiver 
cord Poo Large, stopstate 


If abnormal termination has been 
entered wia the IPs$$TR routine 
all VSE/POWER spooling related 

ean up has been already done by 
this routine.It aust’ not be done 
once again here. 


If a Receiver Cancel has been 
detected, the job/output aust be 
wrjtten back with HOLD dis ition 
(since the reason or intent of the 
receiv node to cancel is not 
known). This is performed by first 
changing the disposition in QRECDI 
to HOLD and then issueing the $DQS 
macro. Note that in case of a 
Receiver Cancel and a sub nent 
Cancel propa ge to S-state 
occurs, the fon S$ written back 
according to Receiver Cancel. 


The bored ek dea required by PFLUSH 
is stor in the qa@eue record 
field QRDI.If the stopstate is F 
and the 23> has the disposition 
KEBP, HOLD wili be put into 
BDI.In case of stopstate H, a 
is ition of HOLD will be 
written into QRDI._ : 
The $DQS macro is issued to write 
the job back according to the 
stored disposition. 


$DQs 


spos 


The queue set is freed. 


If the stopstate S occured during 
a WAIT for BSC event after having 
sent an End of File without having 
received a Transaission Complete 
or Receiver Cancel signa 
afterwards, it is not sure what 
the situation at the receiving 
node is !.In order to enable a 
retrans- mission of the job/output 
at a later point intine, it has to 
be written back to XSIT queue with 
HOLD disposition.If abnormal 
termination has been entered 7 
without having sent an End of Pile 
before, the job must be written 
back with itS old disposition. The 
$DQS _ HOLD macro is issued. Since 
the disposition may be DELETE, its 
queue set gust not be freed. 


SFOS 
$pQs 


If this transmitter is going to 
be drained , the line driver is 
requested to start another not 
drained transmitter in order to 
transait the aborted job/output 
again. 
This is essential, if the 
receiver of a : ces. 
transmitter-receiver-pair is 
drained and the transmitter 
ets an BPGR. This NPGR drains 
@ transmitter, too- — 

But the job/output, which has 
aborted due to this draining, 
should be sent, whenever a_ 
non-drained transsitter exists. 

Accounting will be performed only ABTRS13 §SPAR 

if at leaSt one data record has 

been transaitted-The account 

record in the transmitter work 

area is updated with 2OJ time.The 

account record is written to the 

account f£ile on disk by means of 

the $PAR macro. 


The pop7gutput transmission is on SRLW 
ob boundary .The job boundary ; 

lag is _ reset ,the logical data 

area and queue record areas are 

released.  _—_ . 

The ABORT indicator may still be 

set.It iS reset now. 


Chart NT 





i 





283 


IPWSSNT - Command/message processing 


Licensed Material - Property of IBM 


INPoOT PROCESS OUTPUT 
T e 
CB E ob} 
TCBENCB aie “ see, From Sain Line 
[=e | -----~-- ~ : ; 
: t----~->101] Get first/next command/message fron omen men meray TCB 
. command/gsg gueve : 
3 Pass Coanahdresssage to coagposer t7----> |TCBRY 
: Delete command/message from queve 2 NCWA 
: i. 


r 
| 
| 
i 


7 





1 The IPWSICS REQ=GET macro is 
_issued to obtain the first/next 
command/message from the frog the 
command/message queue.The service 
returns the data address in 
register 1 and the length of the 
command/message in register 0.If 
the command/message queue is 
eupty register 1 Contains zero. 
The compand/sessage is _ passed to 
The Composer by the PUT RTYPE (NMR) 
macro. 


The IPWSICS REQ=DBL is issued to 
delete the command/message froa 
the command/message queue and to 
release the virtual Storage used 
By the Nodal Command Record -k1 
addresses the nodal command to be 
oeraee from the command/ ressage 


| 
| 
| 


| | tf 
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NCWAPUT 


If imrgediate stop state —_—-— 


es, 
lon 


If comaand/message queue is not 


09 29 00 00 co Ot omy 


empty “| 

05{ Pass signal to composer indicating that ------~----—----~ 
output Dbuffer,if any,is to be queitied to 
the To Be Sent Queue 


If new messages/commands are waiting 
to be transmitted : 


clan 


° 


sf] & fe & 


=! 


eee mae erence emerimecrqerenttaneaearame \ytam 


Bxit,return to Mainlineecee 
e 
| 


NOTES REF 
If an inmedite stopstate (S,H,F) 
has occurred the transmission of 
Ccomrmands/messages is stopped and 
termination of messa eccommand 
transg@ission is star ° 


§ MODULE { LABEL 


r= | 


| 
| 
| 


If the command/message queue is 
not yet eapty the next | 
comrmand/message is obtained. 


If no more comrgjand essages are 
found in the commpand/message queue 
an end of commjand/message Signal 
1s_sent to the composer by PUT 
ETYPE (QBUF) . 

After having passed a pee (no 
more asgs/commands to sent) on 
return from the Composer new | 
messages/ commands may be waitin 
for transraission. A check is mad 
again for hew messages and if 
there are any the transgission 
tarted 


PUT | 
| 







res 


° 
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SAINLINE 
OB2 





’ ' § 
CHAISEND JOBEND SUSPEND | 
+)’ . / 
OB4 0B33 OBS 
2 3 





CHECK Cece RPL se a ee PESTRPL 
0B18 OB12 


J a - 
ae eee 





tet of 
1 


“¥ 
1 
SENDASG SUSPES D2 GETLR JOBES D SESDPA TESTRPL 
0B10 OBI 0B33 OB42 


SENDPSH TESTRPL f | 
atlas a wal ‘ 
v 
12 
1 


. 
“Vv 
OB18 1 
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2 
i 
1 ' 
GETRL PSHDRS CHAINJOB 
OB31 0B32 OB19 
{ : [ i ' H 
WRITENSG SENDASG PILLLE COMPRES NOCOMPRES NEWRD 
0B11 0B 40 0B20 0B21 ~ 0B22 0B23 
i t t 


COSPSGR SENDFSH TESTRPL PDIR COMPACT TESTRPL 
OB35 OBS OB 12 0B34 0B30 OB12 


CHECK | GETLR 


0B31 


i 
“< 
ae 


i I 
IPWSSOC SENDPAH TESTRPL 
oco2 OBS OB12 
[ nee | 
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eee rar <] 








TERE 
oB8 
i ' 

CHECK CANCEL SENDFSE WRITESSG 

0B 18 0817 oB9 0B11 

CHECK CHECK 
0B13 0Bta 
’ 
i 
} 
INTVREQ LUStaT GETSENSE 
0B 14 OB15 0B13 
f I i i I i 

CANCEL LUstaT SUSPEMD1 WRITENSG CHECK CHECK 

0B17 OB15 OB6 OB41 0B1a OB 18 
CHECK ae | CHECK SEMDASG SUSPEND2 

0B 18 oB uf 0B 18 0B 10 0B? 

SBNDPAR 
OB9 
CHECK 
0B 18 
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OBZ: IPWSSOB — MAINLINE 
Inpur PROCESS OUTPUT 





SAINLINE 


Initialize the SNA outbound processor. 





/f-——,.. 
<i eeeece > Init 
/ OB3 
ae eee --->|02] If end of file not reached and °S*-state 
e [02] not presented: 
TCB 3 A. Get next record. 
[rcerr } -----------— —_ 4, 
' ; eecece > GETLR 
? 0B31 
WACB 
Seer meen ne eee wn, Be If end of file not reached: 
Provide function managerent headers. 
f—— . 
< eeesce > PAHDRS 
OB32 
wacB 
WAOP ee ices ioe aes So a nae aes nae C. If *S*-state not presented and sore 
| output available:? 
waoy : 
?TCB : - RESTART: Process re-entry point. 


- Build chain for one job. 


i wwaceat 
eesese > CHAIN JOB 


| 


0B19 


- Terminate outbound chain. 


f-—.. 
< ances? 7 CHAIN END 


- Process end of job. 


j—.. 
< eecceee > JOBESD 
——/ 


OB33 
- Test suspend reason. 
is, 
eeccee > SUSPERD 


7 OBS 


Terrginate outbound processor. 


sj—.. 
< ee5vcce > TERS 
aes sil | 


RETURN eee 
ee 
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OB3: IPWS$OB - INIT 
INPUT PROCESS ourpur 





jeu: From MAINLINE 
—/ 


InIT 


| . 
= 
| 

| : 
| 


fort Calculate work area length. Son rn re een) aaa 


{oz} Issue GETVIS. 


15 
wornnnneneae enna 303] If GETVIS was not successful: 


A. Lock general workspace. 


f/f. 
< eececese > IPWSRSR 
c/ 


! 
[Rucp } SS eS a cee me ete > B. Set address of vorkarea. Soe ee eee: TT CAW A 
| Sea ee | 


yi] 
® 
e 
Ne 
Vere 
i=] 
wr 


f ] =-------~--——-—_-——--5 fo} Set address of vworkarea. een > [rcpwa I 
+ iu 


}05] Clear work area. 








R5 
ae _ See css e ==, If work area was not obtained by GETVIS: | es 
A. Queue message 1¥161. Seen ee en rena | 
B. Send message to central operator. 
/-—_.. 
< srreee > WRITESSG 
OBt1 
C. Send sessage to reaote operator. 
{/i-—. 
< bsnl SEBDESG 
0B10 
TCB 
D. Indicate *s*-state. oe > 
B. Set last send indicator. Hi eaesiatall BBEBRU 
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OB3: LPWS$SOB - INIT 
INpuT PROCESS OUTPUT 





{ 07 1 Initialize workarea. ss ca ee 
[re 


Set VTAM parameters. o--+--+- ~~ 


ACB 
WaACS 


| 
E 
| 
| 


Indicate states. Be a 
PORKID a aaa f19} Initialize forges identifier. ee a 


[14] Initialize task class list im TCB. © 9 —-------------—------ 


BODY PSH a2-----------—— === =~ [12] Prepare raat. aa----------——----—---> [Pa 


SELBYTE | ~----------- —-— 


or 
0000 0om 


[13] Open logical interface. 


s—>.. 
< eeccees > IPWSOLI 
—_ 


Return to BAIBLIBEoce 
=] 


ws 
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OBS: Ipw$$O8 - CHAINEND 
Ivpurt PROCESS OurPuT 





CHAINERD 


End the outbound chain and send the 
remaining buffer to the logical unit. 











WACB 
RPLACTIV =-------------------- fo} If the RPL has to be checked: 
Ae 
[/-——4. - 
< ehanahcicah CHECK eee oe ee eee 
; 0B18 r 
B. If there is an error comdition: = = <-----------— —s 
 checee’ 
eeceee > TESTRPL 
/ OB12 
WaACB 
Swap the buffers: 
- Indicate length of RU to be sent. 2------------—, 
- Indicate buffer in process has to 3 
be sent. ------ ti 
- Buffer to send becomes buffer to | i-——-——- 
process. on oe J 


- Buffer in process becoses buffer 


to send. eceeneeceer snes > 





- Set current pointer to beginning | 
of RU. 













Turn off only chain indicator. 


! 
----->[05] If the process is between chain state: | 





LUCB c 
cata anata naan - Indicate empty buffer. woennn ena 
TCB 
wow enme core — ——— If the task is in *S*-state, or if the 
cr process is not in chain state and 
3 Tecords are not available then return: 
: f\ -/ 
2 v 
: Otherv ise: WACB 
; - Turn off first of chain indicator. ---<--------— ———<—<—$<$<—$—$$——— 
: : ; i ~L---3 |apLPaRst=0 
3 - Turn on last of chain indicator. aaa a i Ser ae 
WACB 2 - Turn off middle of chain 8 eee 
2 ind icator- woe nanan anne --> | RPLAIDLE=0 
2 - Turn off last of chain indicator. eeeangeae one ----- RPLLAST=0 
: - Turn on only chain indicator. Tree ewes en ores reee RPLOWLY=0 
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OBS: IPWSS0B ~ CHAINEND 


INPUT PROCESS ourpuT 
TCB 
Reset the live bit in the ECB. =---~----—--—--~---—---> | PCBEB 


a ree per rere remene Coe nee ee 


| TCB13 


Sees Sere See eeseeee= Save the pointer to the POWERB/VS save aes | 
area seen + 


er gre re re EE te er Serr [oe 


RD 
A(WASV denen heeientnteiaeneaieteenenecene ad Get the address of the VAM save area in —~--~--~-~----—-----——-— 
facuasyy Get the addr : te 
—_—— 
: Ri 
[a (wan) } ----~-----—- —------ {oo} Get the RPL address in register 1. —----~--—-——-- 3 --- — | 
ocr 


Issue the VTAM SEND macro to sen --------—- ----i 
the reraining buffer to the Log teal 1 


unit. Soe nen nee 


RP 


Ce ee oo 
rs] 
[| 


WUD 





Le 
TCB13 . 
I } iestesahennaiaeateieiananeeetetanmaat fray Reset the pointer to the POWER/VS save  ----—-~------—: 
area. | : 
12) If the SEND request was accepted: 9 <-reern------ — 
| RP 
A. 
/—.. 
< 7 CHECK a 
. i 0B18 : 
WACB 3 WACB 
was o--------+--------++ —}$ B. Indicate between chain state. wana nn = 3 -----> | WACS=2°805 








Ane 


| 
| 


[13] If there is an error condition: 


/— .. 
oe = /)| a 


{14} Retura. 


ate CANTY GROEN Se ER rag SEAS ES ie “OEP SOS” EPS SEALING GS (AA neg ap SSPE D-NY GD SUERTE TEE 


Return to HAINLIEBooe 
=] 
/ 
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OBS: IPWSSOB - SUSPEED 
IRPOT PROCESS OUTPUT 





SUSPEND 
TCB 
ee eee me wee oe wee woo we ec 8. y 1 + . ‘“ 
$[0i] 2 vse-ntate se indicatea: = [] 
TCB 
tccc men rn > If new forms to be used su nd 
transmission for forss-mount-procedure: 
A. Call SUSPEND1. 
eases” 
pda SUSPEED1 
aie OB6 
fooe” [03 . 
LUCB | +57 
fuse | See cere eran B. If signal has been received or there 
Benner are any messages then allow 
interrupt for inbound data (IPWS$IB) 
or gsessages (IPWSSHP) =: 
LUCB 
{Lone | A = a C. Call SUSPERD2. 
/——-. 
< ecceee > SUSPEND2 
-—/ 


OB? 


Return. 


Return to BHAINLINEcee 
| 


NOTES { MODULE } LABEL j REF } SODULE | LABEL { REP 


23 Field LUSG is set by the DPASY 
exit routine. | | | | | 
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OB6: KPW$$0B -— SUSPEND 
xrupoT PROCESS ouTPpur 





EE 
e 
eee >From SUSPEND Or INTVREQ 


SOSPEND1 


TCBCC —s fy _ term m enn e cere nn= am one If forms mount requested: 





A. Indicate SETUP/GO command requested. --~~--<- 2+ == 


B. Queue message 1V171. a 
C. Branch: eel 
‘ 
Enyacate restart command requested RET ES 
queue rmessage 1¥18I. as —-— | j 
ee 


Send message to renote. 


I 
</ecveee’> SENDASG 
0B10 
LUCB 
iach ei oe iol eames If *s*-state i resented oc SETUP/GO or 
a t RESTART procedure not required: oie 


TCB Ee) foo t 
as : 


Loca 


LUSG Seen een ene ne re If interrupt outbound for inbound or 
ia—| message requested : 


A. Handle interruption. 


Rennrad 5 
eoce <7? SUSPEED2 


0B? 





NOTES } MODULE | LABEL | REP NOTES 


ausreaD? may be entered because 1B Message 1¥171I: 
7 W171 ®fTTPSUSPENDED POR PORAS 
A- Activation of SETUP/GO SOUNT. 
procedure. 
2 Sessage 1V 181: 
B. Por peeki outbound dest ination : 
WGI "TTT" REPLY WITH RESTART O” 
TETERVENTION REQUIRED. 


with TCBIT 
HOLD. 


for pendin aones to be 
send Poy ae essag Biodebece on 
thas session.” 


Interrupt outbound ae deat*un te 
and Set’ seconds % unit 
into send State o 

rergote station to sana tt any 
inbound data. 


Ip *signate Yea’ by the og roced a 
b 
word to ing ths comuas prseeee 


ae The logical writer detects a 
qeéne set that reyes Boke ses 
on Pranter or 
this case on 8299 5 pas Hog "yas 


zeued reanote 
station by iby ee writer. 


The end of the setup stream is 
reached. 
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OB6: IPWSSOB SUSPEND? 
IsPovT PROCESS ourpur 


Lock SUCB chain. 


sj . 
< eececcee > IPWSRSR 
eee. 


Reset wait ECB. miccinccescenaeaamn es 


<=> j 08 | 








if ‘chee = egte resented, oF or eanterrupt 


EB 
Fequegeed. oF SErur7éo"s and RESTART 


A. Unlock SUCB chain. 


ged ceo 
5ceo a a a ET 


B. Reactivate wait BCB. 





00 00 00 08 ge 00 00 O08 Or tem 


| 
| 
| 
| 


C. Wait for reactivation. 


| 
acases > 


Reset SETUP/GO, RESTART procedure | 
requir icators. a+ +--+ 


Reset invention reguired indicator. Serene reer est eeeee, 


arene —-----—---3[11] rf *s*-state is presented: [e*" 


{12} Get next logical record. 


f—_—. 
< eceecee > GBPLE 


o—/ 





OB31 
{13} Process jobend. 


f—_. 
<" eeecee > JOBEND 


f 0B33 


Return to SUSPEND OR INPVREQees 
pe 





SOTES {1 BODULE | LABEL | &BF ROTES 


Coaunications wate reaote 3 42 = s is to rep: lace Gamay ecord 

Sie tes for SETU a different make eith 33 SETUE/GD B procedure 
be performed oA d or restart Reabant @ Re. 

Segsions. In that case 

outbound processor sust er 

for further notification and 

may be reactivated by either 

- SNA manager or 

- Inbound processor or 

- Bessage processor. 


After reactivation message 


processor will reset t LUAR. 
outbound processor resets LUSG 
Ect aapeun 


processor will reset 
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OB7: IPWSSOB ~ SUSPEND2 
Inport PROCESS OUTPUT 


Prom SUSPEND Or SUSPSED4 


SUSPEWD2 


WACB 


{wass | wee rene en a ee If in data stream state: 


A- Set send indicator for PRH. 


B. Indicate DS-state to be suspended. 


ao-----+- ~~ = C. Hove PRH1 to #ACB. 


LUCB 


J_an--an---—-—-------4[03] If SIGNAL request not received: 


a. Reset signal request indicator. 
B. Reset LU to continue any anode. 


C. Indicate change direction. 
D. Send suspend PSS. 


Jf. t-—-3 5 
e@cocese > SENDPAB 
co 


a | 


If negative rosponse received: 


A. If intervention not reguired: 
Analyze return code. 


/—_,.. 
< ecececee > TESTRPL 
—/ 


B. Else: 


- Indicate *S*-state. 
- Queue message 1¥07I. 


- Indicate break. 


NOTES . SS tCtCi(‘(C~™CSCS* CL LAL | REP HODUOLE {| LABEL 


| BEF wOTES § BODULE 
When SUSPEND2 is entered the “7 when SUSPEND2 is entered the data.j| | °° °»;}| 3B Bessage 1¥07I: 


LABEL 


stream state may 
WO7I BRROR OW *SEBND*® RTECD, 
A. IWDS~state ie bo a daa while 


BK2 =exxeyy® SENSE =*xxxzx 
processing a jo 


B. BETDS~-state (interruption 
between job boundaries). 


PMH? (SDS) is only sent in case of 
IuDS-state. 


SUSPEND DS. 





' 
Pant $8) is only sent in case of ! 


296 VSE/POWER PLM Part 3 


Licensed Material - Property of IBM 


OB7: IPWSS0B - SUSPEND2 
InpPpurT PROCESS OUTPUT 

















RPL 
RPLPAHDR wer neem > | 04) If IDS was sent then indicate datastrean 
inactive. sho ni seep ip aie i 
Reset send indicator. 
TCB 
icponeta oe asa ioe) me ha bcatads inv ac piemented 
| | A. Lock SUCB chain. 
— ae u 
P ercod > IPWSRSR 
c——/ 
B. Indicate outbound suspended for Saree ener Cnae are 
inbound. 
Cc. Set select indicator. ——— 
Pe. Wait for reactivation. 
f/f. 
< eeeese > 
WACB 


moon nee ++ = If destination not active then branch: 


eee 5112 
/1 -/ 


fost Send PSH (IDS). 


[ 


/—.. 
< eecsces > SENDFAB 


is OBS 


R15 


[ I Sr a a ms nin aa a ea If negative response received: 


 —Ss <== = =-=--- ==> A- If intervention not required 
indicated: 


Analyze return code. 


j—_.. 
< eecsceace > TESTRPL 


Z 0B12 


Be Blse: 





TCB 
- Indicate *S*-state. er 
- Queue message 1V07I. aia WAaN 


- Indicate error on REQUEST. 0000 wer3e--- aS [wasn } 


D. Post SNA work ECB. ot er 
E. ont SucB chain. | 

@ ” . 

< eecvcee > IPWSRLR 


NOTES | MODULE { LABEL } REF t{ MODULE | LABEL 4 
Message 1V07I: 
1¥07I ERROR ON °SEND® RTBCD 


PDBKz2 ="xx,yy® SENSE =*xxxx6 
*luname*. 
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OB7: IPHSSOB - SUSPEND2 
INPUT 


PROCESS 





10} Indicate destination inactive. 


{a1} Reset send indicator. 


TCB 


[rcsrr | were nna ---> 112] If *St-state is presented: 


Bise: 


Be Indicate outbound suspend for 
Bessage. 


C. Reset reguest for interrupt for 
aessage. 


D. Set select indicator. 


BE. Post SWA work ECB. 
P. Unlock SUCB chain. 


OUTPUT 


t | 
freuen] 





RPLPSHDR 


sj... 
< eescece > IPWSRLR 
2 


G. Issue wait (IPWSRFI).~ 


| 
| 
| 
| 
J 


TCcB /———. 
< eeceee > 


WACB 


| 
| 
| 
\ 


is not suspended: 


Else: 


A. Set send indacator. 


B. Indicate resume data strear. 


Ce Sove PSH? to buffer. 
D- Send FSH to reaote. 


/e. 
< evecees > [_seuprm | 

—/ 
bs tjes Se 





OB9 


_ 
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If *S*-state is presented or data stream 


A. Lock SUCB chain. 
/—— . 
< eeeveee > IP#SRSR 
—S/ | 


>f Ww } 
/ */ 

| Locs 

i -__.._} 
| LUCB 
Beas 
| LUCB 
ne 
! 

| SECB 
os 
/\ < 

| WACB 

wee nn [RPLFMHDR t 

| ee | 

| a 

ee eee > [PAHDSS i 
| 

| WACB 
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OB7: EIPWSSOB - SUSPEND2 


IaPouT PROCESS 


indicated: 


ened 


: 


B. Blse: 


- Indicate 







- Indicate break. 


[15] Indicate in DS-state. 


Reset send indicator. 


Return. 


Return to 






1 MODULE | LABEL j REF 





T4aB Message 1V07I: 

1VO07I ERROR ON *SEND* 
PDBK2 ="*xx,yy* SENSE 
*luname*. 


RINCD, 
="xxxx 


fas If negative response received: 


A. If intervention reguired not 


Analyze return code. 


snenee > TESTRPL 
OBt2 


*s *~state. 


- Queue message 1V07I. 





OUTPUT 





a a ee ee ee ee eee ee 


ee 
Verena Cr ee re Orr mer eT RTS 
3 
Q 
wo 


SUSPEND ox SUSPEND lece 
e 

reps 

ae 


| SODULE | LABEL 


| REP 
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PROCESS 


bal! 
eu. 
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oe 3e om BAINLIVE 


| 
2 
oa 
4 
"a 
ae | eee eee: 
‘ 
| 
t 
| 
| 
| 
tence ad 


| 
| 


A. 


= 
3 





F. 


for} If *S*-state is indicated and logical 
interface is open = 


Get address of termination routine. 


Branch to terminator routine. 
/— 





< enecce > IPwSSTR 
—-/ 


RTRN: Restore registers. 
Point R7 to dynamic area. 


Restore address of POWER/VS save 
area. 


Reload second base register. 


eee eres ry If use counter for compaction table 
increas: 


A. 
LUCB Be 


D. 


[erates J re c 
| 


WACB 
[ReLactiv } Steere me enema —> | 04 ee ay wae Seraceee is outstanding then 
a 


t 
WACB | 


Reset indicator. 
Lock COCB chain. 


<[soense > 


Reduce use counter. 
Unlock COCB chain. 
a 


esccee > IPWSELE 
oh 


Clear return code register. 


eece asa "> CHECK 
0B178 


[wacs wo none -->|05] If in chain state then cancel 
outstand ing chain: 


ss 


sesnee > CCE 
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| 
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| 


t R15 


ouTPuT 





w 
= 
| | 
ne Sr eR SEP CPM RHP er EPSP” AEDES ERS SS PPA a PE PY SE SOS FS OC CE ES TS I NIT SST TS 


} SODULE {| LABEL { REP j 


$SRSB 
| | ‘a 
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0B8: IPWSSOB - TERA 
INPUT PROCESS OUTPUT 





BBEBRU 


| 
| 
J 





WACB : 

[wasn ] --------~------:-----5/06] If no bracket reject and no VTAK error 
[ a | : and no *S*-state occurred: 

LUCB | ; | 


RPL 
LUBR meme re meee nme eoeen= _ A. If between bracket state 
then set BB indicator. mom nnn > ERPLBB 


B. Set BB indicator. Se seses sees SS == RPLEB 
| s 


{ C. Set LG into continue any mode. ea aaa a --> [RPLDLGIS 


waACB | 


en rr ee een > D. If destination active: 
: RPL 
- Set send indicator. SSS Se See = faeLPaupR i 


- If abnoraal ters inat ica: 


Abort data streasz. oo eee PMHDSS 


Blse: Indicate end of data stream. -~------------~ 


- Send PSH1 to rerjote. 


an oe 
w aecese > SEW DP SH 


ig 0B9 


| @ACB 
a - tore rato batter. eT 


B. If negative response received: 


- Indicate break. 


Else: Indicate between bracket 
state. 





F. Reset send indicator. 


WACB 


oe If break is indicated: 


WACB 
- Queue aessage 1VO07I. a+ 5 


A. Set *S*-state. 


ix] 

Q 

i | 
| 
| 
| 

[a 
a 
8 
PERSE SPP LATO SP TS LO ESTP NLS I ESI SL ST Ga a GR SS ST TT a EOI A TPO CE: LOT IS TATTOOS TRS PT TILE TOIT 


| Loca 
B. Request stop session. ener 
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OBB: ILPWSSOB - TERA 
InPur PROCESS OUTPUT 





CB 
TcaTtT) id eee eee == -—-- s-----2[08] If abnormal termination and no BB 
reject: 


ween 
i 


LUCB | : A. Queve message WV26T0 0 (900 SRR Rm mee 
Cai acaaacas =a 
B. Send rgessage to rersote. 
a - 
R1 < ecececee > SENDSSG 
” fucnoren_} om es eee come eenen C. If API interface open: 
| ~ Load message numbere 4000000000000 Srt ttre rn 


- Write message to central operator. 


/——- 
< poet WRITEASG 
OB11 
WACB 


WALI ween eee nn nnn a= 2 ==>} 09} If interface to logical writer is open: 


A. Close interface. 
/j—— . 
< eececeee > 
TCBWA 
B. Indicate interface closed. wee nee wnwee amen wm on 
> 


RSGP on reer een nnn n= If general work space used: 


A. Release work space. 


fft—. 
< eesccee > IPWSELR 
—f | 


B. Branch: fer 3 03 J 


fait Set length of workspace. wren nner een 
TCB | 
a------------—-------> [13] Get address of workspace. Sa amie 
[13] Pree space. 
TCB | 
a a rl ae > fas] Save forres identifier. esas eee eerie Sen ore 





{ BODULE | LABEL |} REF { SODULE }) LABEL {| REF 





S$CLI 
| | = 
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OBS: IPW$SOB - TERA 
IuPoT PROCESS ouTPUT 








Seem cweewoneese poeeen> If abnormal termination and no BB 
reject: 


LUCB 


LUBB 


A. Reset device started indicator. Seca aeeceen Sew ecae 


90 eres ee 


| 
| 
i 


Be Set no output available. eee we Ha 


Cc. Reset output class. ewe n nee ee ee pues 


OAV aa arene? If no nore outp at availa | 
then indicate & evice ate Sie: ee nr an ae 


(17) Reset pointer to LUCB. Re eer ae 


Reset TCB pointer. | A ea nena ae RPE 


<---- ween en enna --2}19] If no BB reject received | | 
then reset device pointer. i. at. 


Sea tS Se a ee a, If request suspend for aessage: 


A. Reset request indicator. een a an eee ae ae ere asa aes a enna 


B. Reset reguest indicator. wr nn 


{21} Set select indicator. i Saar a re 


Unlock SUCB chain. 


Detach outbound processor. 


Cooenee” 7 | —__et __ 


Return. 


{22} Post SHA work BCB. | SEs Ot ee ae eee 
[23] 








Return to HAIBLINECoe 
| 


} BODULE | LABEL } BSODULE | LABEL j KEF 


ee a aul 
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IPWSSOB - SENDPAH 


IwPot 
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ne i 


WACB 


[wane | 
> 


PRELEN 
eww wen ne ee ~=-->102 


RPL 


RPLPAHDR Ser eee en meee, 


R13 


WACB | 


WACB 


fom} 
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i] 2 
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PROCESS 





Be Fcorm FBHDRS, JOBEND, SUSPEND1, 
/\SUSPEND2, TERM 


SENDPRH 


Point to PSH area. 


Get FH length. 


If null RU to be sent 
then set length for null Rv. 


Reset ECB for POWER vait. 
Save pointer to function save area. 
Point to VTAB save area. 


Point to BPL for send. 
Issue VTAS send. 


Reset 213 to function save area. 


If send request accepted 
then wait and check RPL. 


/—. 
< ecesveee > CHECK 
Oe 


Reset request for change direction. 


Reset request for continue specific 
node. 


Return. 


Return to calling routineeese 
e 
=3| 


OUTPUT 


Pi 
RPLDLGIE 


ee ce: eee eee coe ee oe ee 


=f 
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OB10: IPWS$SO0B —- SENDNSG 


Inport PROCESS OUTPUT 


benca =o 


LUCB 


=_— as eI 


Te ar SEE EAERED EAP ENE PE 





InIT, SUSPEND1, TERA 


SERDSSG 


Queue a message for the rerote 
operator. 


~~ ewe we ewe ewww ee ew ew ee em we em oe 


et the address of the RPL in register 6 
or sessage modification . woo +> f } 


Rt 


Calculate the sessage address. TF as | 


RO 


Indicate the remote ID in register 0. ee i } 


Isseve the IPWSRMS macro to queve the 
message. 


f@—,. 
< ewvccee > IPWSRAS 
/ . 


Return. | 


Return to calling rout ineesse 
e 
=I 


SOTES ) MODULE j LABEL | REF ) BODULE § LABEL j} REP 


4 The IPWSRMS macro uses registers 
0, 1, 2 and 3. 


Baile fe 
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OB41: IPRS$SOB - WRITENSG 
Input PROCESS OUTPUT 


ooo Se ron InIT, TERS, LUSTAT 
u—/ 


WRITESSG 





Issue a message to the central operator. 


~—-e—wnwrwrewnewe—wenreXweweei ee Be ewe eX ew em 


A (WARP et th ad £ the RPL i ist: 6 pd 
soccer wcee= a ee enema mmm e address 0: in re er 
$cc message @ if icat lon - ° ee a Te en 
fo2] Calculate the message address. an naan I } 


Issue the IPW$WTO macro to issue the 
message to the central operator. 


/——.. 
< eeecee > IPpwSsvTo 
—s/ )——_—_————wu—_— 


Return. | 


Return to calling rout ineese 
ae 


A A eS EE ERE Cee chee Se SPE rg SPS SE DSSS ET 


NOTES § MODULE | LABEL } REF { BODGLE } LABEL 
3 The ERP ero oorne uses registers | | e 
an ° 


e cd 
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OB12: IPW$$SOB - TESTRPL 
INPUT PROCESS ouTrPoT 





EE 
ee >Prom INI?, CHAINEND, SUSPEND1, 
/|SUSPEBD2, WENRU 


TESTRPL 


Analyze RPL return codes. 


eee wr wr we ew ew Be Ke e— eke ee Be we ee 


A (WARP) o---------- —- —------ Point register 1 to the RPL. =-------~---—-—-—--—- 





RF 
jl ~->[02] If the acB is closed: 
- Indicate *S*-state. Gi sree, 
- Indicate request erroc. ooo 
- Reset RPL. waaay : 
- Return. : 3 
eoe >)15 3 
“\ ny z 
r-—--->| 03] If a POWER/VS log ic error occurred then : RPL 
2 force a program ¢heck by branching to $ 
3 the storage descriptor. Bema meen > SPLAGTAY 
[aarti poe 
aan teeneaeenee ~--~>,O04) If neither exception response nor prior 
a fos} exception response then branch: B 
3 : ° 
---—-5 





= “ 
“v 


If prior cecery ics response then obtain 
sense inforsation from VPA. 


[f———t 
< rhein ¢ GETSERSE 
0B13 


WASH ee mee If a VIAN error occurred then return. 


00 OF ee Oe en eens 


WACB 


oath aatn thea aneeneanlaniiet tien Raed 
if 
| 
| 
i 
[3] 


eng or e Sare E-OAPa  E-SPSPS- PS -SP-UESE SFEHS SEDSS--DSEP>SS- SVS SS Sp PSP SS > S-DSRS SAPS 


wOTES § MODULE { LABEL j REF § SODULE | LABEL {| REF 


1a 14VO7I ERROR ON request RTECD, 
PDBK 2=xx,yy SENSE=xxxx OW lunarme. 
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OB12: IPWSSOB - TESTRPL 
INPUT 


7 


ee ee eer eee a ES RN 


WACB 


i 





WACB 


RPLDSB 


iii each de iain epee tiga asia circa anemone iit i ps ota niawimor ete 
a 
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RPLDSB sf. ~~-~----~ 


RPLDSB | mene nna 


Sav 00 0000 08 e800 OF 00 0e BO ee DF 05 0008 Fett DOM 


22+ --- +--+ | 09 If a break sense code was returned 


<---> If a bracket reject error, or a bracket 
107] 3 ¥ro os St 


Licensed Material - Property of IBM 


PROCESS OUTPUT 

















race error, or rin transai 


mode error éccurcad: 
- Indicate *S*-state. 


- Indicate bracket reject. 


- Return. 


jos} If an intervention required condition 
exists: 


A. If not PSH: 
Handle intervention required 





condition. 
/—- . 
< eeecee > IsTPVREQ 
= 
= B. Otherwise: 
Return sense to reszote. 
f-——— .. 
< eeecscoee > LUSTAT 
OB15 


then copy sense code e 


Indicate *S*-state. 


fa} Return. ecco 


fe Indicate sense (request rejected). 


{13} Indicate 'S*-state. 






[>] Calculate gsessage index. 


[15] Return. 
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0B13: IPWSSOB - GETSENSE 
INPUT PROCESS ouTPeuT 





e 
e 
EE Included By TESTRPL 


GETSENSE 


Obtain sense information from VPAN. 


wee wrwrewvwveewnwn wre ee ee we we ew eK ee me we 


}o2]. Issue the VTAS RECEIVE macro to obtain 
sense data. 


| ae 
eoecee > RECEIVE Pe en ee ne en 
4 | emneniemmenmeel 


If the RECEIVE request has been 





00 Oc 08 oe sem 





accepted: 
Ae 
~ ,—_— se 
: < ececose > CHECK 
: : A 0B18 
o---------- == --3 --- = B. If return codes are stored, and if 


they indicate a negative response: 
Indicate successful completion. a aaa ama? 





ro > «=| PCBTT="s* 


sane ae aa aSee es 2 If an error occurred: 


| 
| 
| 
| 


ae 
1 
| 
| 
= 00 00 98: 
| 
| 


Ae Indicate *S*-state. 
B. Indicate break sense. 


Cc. Calculate ressage index. i ene 


Return. 


To TESTRPL, Process 03eee 
e 
=| 





OOOO OO SE OOOO 
{ NOTES { SODULE | LABEL { REF | NOTES } AODULE § LABEL j REF 
& 1¥07I ERROR OB request RTHCD, 
PDBK2 = xx,yy SENSE = xxxx luname. 
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OB14: IPWSSOB - INTVREQ 
ENPUT 
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PROCESS 





From TESTRPL 





u—,/ 
INTVEEQ 

Handle intervention required 

condititon. 

WACB | 
ween ere w ne mn near -_ If the process is in chain state: 

j—.. 
<" eoveece > CANCEL 

——/ 


ee 





| 





0B17 


{oz} If there is an error condition then 
obtain logical unit status. 


Hs, 
ecceecee > 
—/ 


LUSTATUS 





>[03] If the task is in °S*-state then brarch: 
ay ic 


Turn off 80J indicator. 


onan n= ---=---------- > If a SETUP is in progress: 


A- Issue the IPWSGLR macro to flush 
until the end of the SETUP stream. 


/—. 
< eccacce >f IPWSGLRE | 
cas / | 


B. Branch: | 





Suspend for intervention required. 


SUSPEND1 


f—_—. 
< eesece D> 
OB6 


fo7} Branch to reactivate processing. 


Branch To SAINLINE (RESTART) | 
e 


pe 


+4 


NOTES { MODULE | LABEL }{ REF 


| 


| ‘o 


OUTPUT 


@ace 
— 


| MODULE | LABEL | HEF 


_ 
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0B15: IPWS$SOB - LUSTAT 
INPUT PROCESS OUTPUT 





eee >From INTVREQ, TESTRPL 


LUSTAT 


[o2} Issue VTAS RECEIVE. 


R15 


po | -----------—--------- >[03}] If RECEIVE scheduling not OK: 


eoe >f18 | 
Ae, 
v 
Issue wait for single ECB posting. 


| 
| 
TCR 
| Reset ECB for POWER wait. | [rcpRoL ] 
| 


ed 


os [= 
cs ee 


TCB 
[tcprr | Bowmore seer eee —->}05] If *S*-state not presented: 


3) 


WACB Rt 
A(WABP) | ~-----~----——-- r----->[06] Base RESETSR RPL. eeeweannn nnn fd 
LUCB 3 

—_i 


[Lops | eon — 


car GE SP a EP IPE A PE CA A See I PS SP SES AOS SE See SS SSOATSI: SSE 


| HODULE {| LABEL | REF } MODULE { LABEL { B&F 


ie Pectllh 
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OB15: IPWSSOB — LUSTAT 
INPUT PROCESS OUTPUT 


woo no -----—— ----=---> 107] Copy outbound RPL. Pemeer enero ene snen a= 


t 
SNCB | 


2 t 
[swac ] -----—--------—------ Insert ACB pointer. —----------—----—---> 
| eee | 








I 
t 
| Set ECB pointer to zero. nn nn ern nea > 
I 
| 
t 


LUCB i H RPL { 
LUCD treme rn nen == 4 10} Set comaunication identifier. TP en mn omen ae > IR PLARG | 
| 

RPL t 


[19] Clear ext. &CB. ~+-----~--—-----------> [RPLECBIM 


f Desc eee eaaeees [13] If RESETSR not OK: 
WACB 


~- indicate cCequest rejected. nn aac in mnin Seren nin im a 
~ Issue message 1V07I to central | 


operator. 
f.-——. : 


< pidabelg WRITEMSG 
OB11t 


- Reset return code. eee een e en ewe 


R15 
=0 


fra} Free receive RPL: 
TCB 


FCBROL=0OnN 


- Post ECB. ee ee ee eee eee = 


~- Issue CHECK macro: | 


| 
| 
| 
| 
| 
| 
| | 
: 
| 
| 





[——— tn 
< eeescee > CHECK 
‘ OB18 


- Reset return code. een ee ee oe ee ee oe 


RV 


RE SA ST RCE RR STR NEE 


5 
RPL 
RPLECB 


a 


A (TCBEB) qononnnnnnn———==n-=—-3/[75} Set RPL ECB pointer. wane enn ene == 
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OB15: IpwS$$OB - LUSTAT 
rTypur 


WACB 


[a (WARP) ] ----------- 


case 


RPL | 


R45 


AP SE Re TE St ET A E-SERIES Se ET NGS TA ESTES SET ST ATED er PG DIATE Se NE EE CSE PS SRAM SE ERE UE Sp AAS SANS 


A ONT A 


| 


RPLLUS a-~------------------ 
RPLDSB 


[RPLPDBK 2 I weer 


we wn nn ne ewe ee oe ee = 


PROCESS 





we een 16] LU status received. 


If no error occurred: 


~- If LU status not OK or not 


received: 


1. Indicate °S*-state. 


$ 2. Indicate reason code. 


= send positive response with VIES 


SEN 


ca aoe? ol - If SEND pchecnliag OK then wait 


and check 


/— .-. 
< ececscee > CHECK 
——/ 


[ 18] If return register not normal: 


A. Indicate request rejected. 
B- Queue message 1¥07I. 


C. Indicate *S*-state. 


- Base rpl. 
- Wait and check RPL. 
a as al 
/ ouT8| 
| 


Beturno to INTVREQ, 


ouTrPpuTt 


— 


WACB 


eae > ASH 
J 
| WACB 
aa [wasn i 
H 
1 


j 

TESTRPLeee { 

Tel | 
e = 4 


Chart OB 
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0817: IPW$$OB - CANCEL 


INPUT 


‘ipa 





NOTES 


WO7I ERROR OM *request*RINCD, 
PDBK2 = xx,yy SENSE = xxxx 
*luname* 


3 
| 


314 


PROCESS 


Cancel the outstanding outbound reguest 


From TBRA, 


INTVREQ 


CANCEL 


unit chain. 


-—e- ere em we wewewe— ee ey ewe eww ew ee = 


A. Reset the live bit in the ECB. 


Be 


ae See 


Indicate no data to be sent. 
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ourpur 








C. Issue the VTAS SEND macro. See ei i einem ar 
/— . : : 
< eeeses > SEND .--—---— 
—_—a/ |" t | ' 
pone 
If the SEND request has been accepted:  « 3 
[ ananane! Oe 
ecececeee > CHECK 
a 0B18 
PCaTT 


Ae 
B. 
c. 
DBD. 


LUCB Ae 
eee B. 
Be eee c. 
LUBS 1 f 
re wr en ee ee ee > De 
| f 
Sener RE. 
\ 
WACB | 


{ MODULE | LABEL j| REP 





| | 
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>foa} If an error occurred: 


*s*-state. 
Calculate message index. 


Indicate 


Indicate break sense. 
Return. 


fou] Otherwise: 


Indicate between chain state. 


Set address of buffer in process. 
Set address of buffer to send. 


Indicate buffer empty. 
Set current buffer pointer. 


Return. 


Return to calling 








= | 


Cen | 


worn +, 


WACB 






penne es cece 


| 
| 





oe noes eres 


WABN=1V071 


i----- 


WASN 
| =X*08118 


BACS=B*100* 
WABP 
WABI 








wanna ===> |W ARC 


~-------———------——--> | WACR 


rout ineeee 
=] 


*y/ 


A 
' 
' 
' 
! 
1 
4 
| 
t 
! 
| 
SA a SE OT OE TO Oe TS BID ES EY EN STL SSS LCD Gee OP SR SEES AE SE CET SR ON SN SE TT eS ONT Ge 


} MODULE | LABEL | REF 


a 
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OB18: IPWS$OB - CHECK 
INPUT PROCESS OUTPUT 





eu, 
eee sprom CHAINBND, TERM, SENDPSH, 
/\GETSEWSE, LUSPATUS, CANCEL, HEWRU 


CHECK 


Wait for the VTAA function to be 
finished and check the coapletion 


| status. 
| TCB 
[a (TCBEB) | woannenann-------—--->/01| Point register 1 to the ECB. w--~--~-——-------—---> | TCBEB 
Issue the IPW@$WFC macro to wait for VTAA 
to complete. 
‘—_——_. 
< eoeeoce > Ipw$urc 
TN 3 eee eee 
RD 
[o3} Issue the VTAS CHECK macro to check the -———- aa | 
completion status. s 
: R1 


i 
| 
| 
| 
{ 
| 


Ramm 
oO cctass > 


[ou} zeturn. 


Return to calling routineesce 
f 


fe 


NOTES i MODULE {| LABEL j AEP | AODULE j LABEL j REF 


e 
e 
y’ 


OE ED EY DTD SN CEE EE SE A SN SS SS a SE SC sr evaS OY GON 


| | S¥PFC 





=o 
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OB19: IPWSSOB - CHAINJOB 
INpor PROCESS OUTPUT 


ok 
eee >From SAINLINE 
4 


Process one punch job, or list job until 
ROJ is enc nck “ J 





CHAINJOB 


(CONSOLE = HO and 
device is a list device)) 


RESTART: 
A (TCBQV) Soren --=>/01f Point register 1 to the saster queue 
record. aR See Ce ae ee, 
TCB 
TCBTI wonnnaan------~--=--=3/02] If punch output is needed: 
A. Calculate the shift nusber. (gt ta 
WACB ee } 
= —I mone ener» Set the shift number to 1. RENE aa Sse aoo see == 
TCB : 
3 Indicate no RU to send. eeeceencnnncccesecoe= 
TCBCC waennnnany $ 
TCBTI worrennnn iy 3 
2 2: fos} rf either: 
$s. o68 8 us 
: : aates - BOJ,or 
t--3-—------9 - SETUP command, or 
SaREnISERE Sa - external interrupt, o 
manne nn nent > ~ ((messages queued) or 
i 


I} 
ee 


20 00 00 ee ee ae: 





SUCB then return. 


sucs 


: 
| 
i 


v 
Calculate the validation byte of the 
command code. ooo. 
| a 
If the corsand code is not walid He —_--—3 
branch. | 
7 °,/ 


Pill a logical record with data and/or 
controls. 


f\-—-—— >. 
< eecc0es > PILLLB 
: of | | 
, a  Y 


If ASCII is wired then translate the 
record into ASCII. 





N 
Initialize the logical record counter 
to 1. dasa ateaaataeaeaemeatae i 1 l 
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OB19: IPWSSOB - CHAINJOB 
NOTES } SODULE | LABEL 


The validation table (VALIDAT) is 














used to check whether a punch or 
print command for a particular 
evice is valid. The table 
consists of 256 bytes, each of 
which corcespond with a command 
code. Zach bit position in a byte 
ye Fesents a punch or printer 
evice. 2f ee bit = one be 
corresponding comman or the 
fevice' is walil. If_the bit is 
off, the comaand will be aqacnea > 
to fest the bit, it is shifted to 
the low order position. Therefore 
the byte is devaded by a nusber 
(WALINDEX), which is Calculated 
with the help of the device type 
(QRDT) found in the gueve record, 
and a device table (DEVTAB). 





| REF 


foo 


Chart OB 


|} HODULE | LABEL 








| BEF 
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OB 19: 
INPUT 


IPwS$SOB - CHAINJOB 


gets ness ou auce pbacbegs easencavecgaaceesseed 


| 
y 
[z] 






WARL 


' 
t 
i] 
i] 
i] 
i] 
' 
| 
OT aeen 


| 
| 
L 


{| SODULE | LABEL 
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OUTPUT 


If compression and spanning of records 
is required then compress print records. 


Hs», 
fosveee’> COBPRES 
OB22 


Otherwise move records from the logical 
record to the request unit (RU). 


f’. 
< eceocce > 
rer 


NOCOM PRS 
OB22 


If a new request unit is needed: 


A~ Send the request unit to the logical 
unit. 


Cesvese > 


y, SEWRU 
0B23 


B. Reset RU indicator. 


If the task is not in *S*-state, 
and if a new logical record is not 
needed: 


ete 
Issee the IPW$GLR macro to obtain a 


dogical record from the logical writer. 


If EOJ has been reached (aaene 
then indicate EOJ. 


ee ee er eee > 





fj\—. 
< eeesce > 
[ crc 


oe cece teeeg 





T0 BAIBLINE, Process ae 
pe 


$ REP } HODULE {| LABEL { REP 


mis ath dl 
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0B20: 
Input 


IPWSSOB - PILLLR 


L 


Sree meen ee any, 


00 00 00 090 00 00 08 ve 00 OF Cees ener anes 






' 
| 
{ 
{ 
' 
| 
' 
/ 


' 
i | 
i. seer cece od 
! 
| 
| 


Pree ee oe oe Cb ce 00 00 00 ce ce 


WOTES 


2 If the user has ied in 
PRAT aa Gharacters rr at eee ty 
01-39 will be vith ate 


gutput s 
hex 40 


} SODULE } LABEL 


PROCESS 





Included by CHAINJOB 


PILLLE 


Pill a logical record with data and/or 
controls. 


Perfora housekeeping: 
- vost oe register 2 to the Sua 
- get ee length to length of 
it as bigger. 9 
- Set the record counter to zero. 
If s ified by the use eeauahace all 
print data hex’ 01-39 to hex 3 


If inter-record separators (IRS) are not 
supported: 


Es, 


If transparency is supported: 


- Insert transparency character. 
- Insert count. 
- Set record counter to 3. 


Set record byte counter to 1. 


- Insert logical record length. 
- Insert inter-record separator. 


Initialize the scan counter to 1. 


Tf ag , inmodiate command is not to be 


- Set record byte counter to 1. 


~ Update scan counter. 


Get the command code in register 1. 





OUTPUT 


WALR=X"* 1E° 





{ SODDLE | LABEL j REF 
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OB 20: 
InPour 


IPWSSOB ~- FILLLE 


PROCESS 





If the count is zero (carriage return) 


then insert new Line character. 
= | Seesaw ree enn erene sen If no skip to channel command is to be 
| 4 Boved: “= 


[3 


ee ete ee am ee ee ea ey setrmieh me ae me a ae a ae 


If skip to channel 1: 


- Insert forms feed. 

- Insert select character. 
Increment scan counter by one. 
CHANSEL 
Insert second select character. 


- Increment scan counter by one. 


- Insert carriage return character. 


- Insert next line character. 
- Incresent scan counter by one. 
-4.L until all next line 


characters have been 
inserted. 


t ~ Decrement scan counter by one. 


| ] weewe recon —-----> 114] Bpdate the logical record length. 


[5] If data has to be moved: 


- Insert the data in 
record 


the logical 


later 
hae ad ferent 


Porce un 
dest cha 
character. 


by making extra 
tion previcas 
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Extract the count from the command code. 


oye 


ice 


Noe 


e 
: 
“N 8 
pee LISI RIM ISI 


TO CHAINJOB, process 05ecee 
e 
=3| 





OUTPUT 







Rt 


— 


Ln > fiALR=x°05* 


Seca | 


i 
-——---- 


<--------—- — 5 


a ee eee ee 


oo 08 samy 


! 
| 
| 
| 


od 


| 
‘ 
/ 


| 
| 


| 
| 
| 
| 
L 
| 
| 


g 


ne re sae ee ee eee oe ee 


| 


| 
| 
| 
J 


pres eves coes eves 


Ree eee eww eee wee ee 
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OB21: IPWSSOB - COMPRES 
IsPut PROCESS ourPeuT 





sk 
see’ Included by CHAINJOB 


COMPRES 


Coeapress print records. 


- ewe we me em ewww enw ewe ew ew ew er oe 


blank and non~blan ression 
persone icate cuaeec tere art fasbre SHA 
SCB8 byte with count value. 


If EE conpaction has to be done and sore 
poe non duplicate characters in 
cing: 


A. Translate string into compacted 


Be If all characters specified: Peer etre cee et een men 


Coapact data. 


Perea 
eeccce > COMPACT 


/ 0830 


Coy Cm 


If there are not at least 2 bytes left 
in the reguest unit: 


A. Indicate end of RU reached. een inser ween dca avin oe ean oes 


If the they record has not been 
pistely a and if the request 


| processed cos) 
unit is not fel 
| coy 





Branch: 


To CHAINJOB, Process l0ece 
e 
=| 
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OB22: IPWSSOB ~— NOCOMPRS 
IsPUT PROCESS oUTPOT 


Be 
oe ’pincluded by CHAIRJOB 


NOCOMPES 





Bove the logical records to the request 
















unit. 

WACB FaAscate the number of bytes left in the. en ene 
WARC a---------- —-------- If the logical record does not fit in — 
it ae 1 the RU than branch: 

i----- [o3} Otherwise: 
WACR ae ec ens aees ee eea=s= —?> A. Insert the data. 
B. Decrement the residual count by the 
number of bytes left in RU. 
Cc. Increment the ition ee°in BU. by 
the number of bytes le i 
wacs D. Increment the rec record b 
the nusber of bytes ets Saat) Z 


| 
| 
| 
| 
| 


j04] If there are any bytes left in RU then 
branch: 


H 
| 
| 
| 
j 





=, | 
ater 


fos} Othervise indicate end of RU reached, =~~----- 


and branch: ; 


00 08 90 00 08 pe ce te 


| 
| 
| 
| 
L 


Indicate end of RU reached. 


r 80 0099 08 00 00 00 00 28 06 09 0006 00 8 ne oe 08 On ve 
i] 
4 


Zf spanning is not sapported then 


Tayi 


| 
i] 


———---- ==) | 08 | Otherwise: 


WACR SSeS a> aA. Insert the data- 


B. Increment the record byte counter by 
the residual count. 


Cc. Increment the position pointer by 
the residual count. 


D. Set the residual count to zero. 


Branch: 


To CHAINJOB, Process Hiss 
| 


nye 
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Licensed Material 


OB23: IPWSSOB - NEWRU 


INPUT 
e 
/ 
WACB 
er ee ween $= = <---> 101) 
TCB [os] 





TCBrT 


| eee nemeen waivers: 


al 


meee treme ew me 


— 





WACB 


por 


: 
meonoass cn soond 


PROCESS 





Included by CHAINJOB 


- Property of IBM 


OUTPUT 


NEWRG 


Send the RU to the logical unit. 


If the RPL has not to be checked: 









5 





Otherwise: SSeS eee ae eae 
eo 
f-——~ - £ 
< hah aie CHBCK $ 
= s 0B18 2 
If there is an error condition: , ne | 
J 9, 
ecccce > TESTRPL 
OB12 
yc 
Indicate in chain state. Seeheteetenerant ae eee — W@ACS=x°G0" 


If the task is in °S*-state then return: 


Swap the buffers: 


- Indicate length of RU to be sent. 


- Indicate buffer in process has to 
be sent. 


aE eee 


s-~---—-———----------} 


- Buffer to send becomes buffer to | nem | 
process. ED DE ae EER ETA ee 4 
- Buffer in process becomes buffer | 4 
to send. a eee oe eer eres oem 


- Turn off first of chain indicator. 
- Turn off last of chain indicator. 
- Turn on aniddle of chain indicator. 
- Purn off only chain indicator. 

- ASCII indicator if required. 


nen naneneneees, 


Ee ee at 


RPLCSI=1 


If the process is between chain state: 


A. Turn off spiddle of chain indicator. 
B. Turn on first of chain indicator. 
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OB23: IPWS$OB - HEWRO 
INPUT PROCESS ouTpur 










Reset the live bit in the ECB. 


Issue the ¥TAS SEND sacro to sead the RU 
to the logical unit. 


je". 
< ecececece > < 


Kf there is an error condition: 


PY epcrsyaeard . 
LUCB pci TESTRPL 
= —| “I 





“—™ 
WACB i---— Indicate empty buffer. 
WACR Pore enee enna 142] Set current pointer to beginning of RU. s----------— 


[13] Branch: 


To CHAINJOB, Process T2eee 
‘pou 
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OB30: IPRSSOB - COMPACT 
IRPpot PROCESS OUTPUT 





oL 


eee >From COMPRES 


COMPACT 


Soren ene enna Get address of compaction table. eee = aan 


oe ee ee ee re re eee ee Save position of SCB in string. ae ee ae ee oe ree ere aena ems 


Get. highest value of aaster characters. ---<---------——----~--- 


Sees ee fos} Move string into request unit area. SSeS SS 


Translate string into compacted code. weet ee nn 


| 
| 
[3] 





Deed ay If 16 master characters specified: 


WACB 


WARUI ene A~- Combine tvo master characters. ae eee Se == 
WARU2 wo-------- + --5 | 


B. Increase byte counter. See ene ee > 


C. Branch: [oso" }o9 | 


xz 

» 

iz) 

w 
onveeces 


ce eas 
1 | 
| 
i. 
1 | 
1. 


Steamed! cee eee “a If two adjacent raster characters 
c P If to, add 


A. Combine tvo saster characters. SS ee en 


B. Increase byte counter. aoe een een > 


Roeonnnnaw—-———---==->108] Hove complete byte to request unit PERG 


and increase byte counter. SS ee 


repaemaeaaemanes ques (6. Insert SCB ORed with byte counter. Se a 
Return. 


ere 


Return to COBPRESeee 
a 

=I 

+7 
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OB31: IPWSSOB ~ GETLE 





Impour PROCESS ourpur 
| | [E: From SAIBLINE, PDIR, SUSPEEND1 
GETLR 
[01] Reset end of job indicator. | Ene ann lt ee Ree 
{oz} Get logical record. a 
(caseee’> 
pl | 
[id sy -------- --—-—--—-2 [03] 12 ena-of-tile is reached: 
LUCB A. Set end of file indicator. FES aes ae eee, 
anna TE Sree sand 
then set last send indicator. Semen e wen mm ewe cme ne 
RO 
[TF nF] 28 ona ot 00 as ronctea 
then set end of job indicator. en enn mean 





Return. 


Retura to san 
yis 
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0B32: IPHSSOB - FSHDRS 
INPoT : PROCESS ourpur 





ee -; From AAINLINE 


PREDRS 






LDDS 


SS ene een eee amen Get CMPACT parameter from queue record.  ----------— 
women nae ce ne cena aa ow an ae If compaction is not allowed: Ce Coe 


mene eew ee ree on prom on> If compaction is allowed and r ested 
iH j03] or compact to coupaction table 7" 

requested and available then invoke 
compaction sanager: 





we Se Sow moe ema _————F 
<(cesese"> COMPAGR 
ees OB35 
ote ae ae even enee aoe ame amen 
7 wee nen nnn - an - ne joa If *S*-state indicated then branch: 
pest ohrae I 
/ of 
WaACB . PRA 
WACH wo---~---------------3 Set compression and/or compaction a--------—---—------> [Paucar 
nee Gs Gat Sopieeeet Antes: ccnp meres 
WACP PSHCPI 


Set begin of data set. ise eee eee ——--—3 [rnapss 


HE tore rs so cognt anit —— 


RPL 
Set send indicator, 2 ween, Ren eR ee 


: 
Send PAH?t to remote station. 


/j-———-. 
< Momtie sg SENDPSHS 
OB9 
Perec ence meme e en If egative response received then 
; analyze return Ge 


f-—.. 
<e alent’ TESTRPL 
OBt2 


fy} Indicate between bracket state. een ene ene ne 
| RPL 
Porce continue specific flow. 2 seer ee een ne RPLEPSIN 
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OB32: IPWSSOB - FSHDRS 





INput PROCESS OUrPUT 
LUCB 
{13} Set in bracket state. a aeneneentecenneiebennenenetmtemetmmenmiaten 
WACB 
Set data streaa state. iit fuss | 
| i 
[15} Reset send indicator. ---~-~--~------------5 fRPLYsHpe 
TCB 
Semen meee poe enm, If *S*-state is presented or no PDIR 
: {16 requested then branch: 
LUCB : 


| 
| 
' 
| 
l 


R15 
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xy 
Create FAH2. 


{/\——. 
< eeccecee > 
——/ 


PDIR 
OB3% 


Send PSB2 to reaote station. 


<ccsnee’S 


coe 


SENDPAR 





If negative response received then 
analyze return code. 


@acncce’S 


_—/ 


TESTRPL 





OB12 


RPL 


RPLFHHDR 


Reset send indicator. 


Retura to SAIBLINEscee 
=: 
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CHART OC: IPW$SOC - RJE,SNA COMPACTION 


SS ee ——a SE EL ST cae 


Ipw 
aiisiiae 


oc2 


f § ‘ } 
GETSPCE1 GETSPCE2 CPTLOAD 
oc3 ‘ ocs océ 
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OC2: IPWSSOC — MAINLIRE 
Iupvr PROCESS OUTPUT 





[eh 
e . 
coe /2Proa IPWSSOB VIA IPUSIOC 


SAIBLINE 


Lock, compaction table control block 


eed SS 
i eaeve > IPWSERSR 
ae, [a ee 


Reset FHH3 SEND indicator. penbe perme enceceeees 


Reset FOUSD indicator. | Ree aa cee OE 





| eo cceecceceteesees If a COCB does not exist: 


ii = 
ecccece > GETSPCE1 
creo. 





oc3 


a 
TCB 


LAR eae aE If "S*-state is presented: 





acB 
<——————---- 3 06] If default walue is specified: 


| | 
Se eee nnnn A- Provide name of defaslt compaction  —-—------—<---------- 
table. 


WACB 


| 
| 
| 


ee re et ee ae 


If job previcasly ran did not use the 
Sase compaction table then: 


LOCB 


A. Set PSH3 SEND indicator. SS ae 


LGCB 
tre 
OCBE aoa ~-~ If entry in COCB is no longer 
3 valid: 


| 
| 
| 
l, 
fu 





- Set POUND indicator. . 
- Set IN GSE indicator. ee 
- Increase USE counter. a 
- Branch: 
eco. [15 l 
[= 4 
TCB 
Gian Aree ee a If *S*-state is presented: 
| eco at's 
ass) 
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OC2: IPw$SOC - MAINLINE 


















NOTES { HODULE | LABEL REP NOTES {| BODULE { LABEL j REF 
6 If the CBHPACT op trancter in *$$LS 
header type 3 (FHH3) has to be statement is omitted the default 





Srapee it ed to the vorkstation. 
PEH3 contains the compaction table 
name which has to be used for a 


coapaction ciple. Seecified ia 

has to be used for the job. Lopya 
and LDEE2 are used as fields in 
socal directory list for a ater" 


7 LO and LUO2 in LUCB contain the 
name and the address of the 
currently active compaction table. 


F the last job used the same | 











job. 


3 WACF is set whenever a valid 
Pos Tact 306 table (eka means the 
table set generated by use of 
ef - - macro ) is a¥ailable for 
a job. 
compaction table FAH3 must not be 
sent to the workstation. In this 


4 SNCA contains the address of th 
case WAP3 still remains not set 


first COCB in chain. If SHCA = £h§ 


2 wWaAF3 is set ere tet a management 
| 
{ 
| no COCB exists and therefore the | 


and a check has to be performed, 
first COCB in chain has to ghother the coapaction table name 
generated. in LUO1 matches the name in COCB 
pointed to by LU02. This check is 
5 Tf GETSPCE1 returns with Recessary » because in the meant ine 
*S*-state, that means “that entry might have been 
acquiring an CPCB was not overridden. 
successftl. A branch back to the 


tbound P¥$$OB di 
vhere the PERRR eer are stil tenses 
the outbound processor. 
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OC2: IPWSSOC -— BAINLINE 
rapuT PROCESS ourPUr 





Cannnanana=————-=---~3f 09] Search for requested cospaction table. 


c—/ 


etary If name found in a COCB: 


72) 
a 
il 
wy 
Perens 


2 


I cee 


A. Increase USE counter. 


Ce ence ee cece sy recom 


| 


Store address of entry in COCB. 


Store compaction table name. 


\ 
| 
! 
| 
| 
| 


| 
| 
| 
} 


If defaait compaction table 
requested: 


- Set default indicator. 
- Set PSH3 SEED indicator. 


- Set IN USE indicator. 


iy 


Eesha oleae eeauenbaianels 
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OC2: IPwS$SOC — MAINLINE 
NOTES 


9 After return from CPTSCAS, R2 will 
contain the address of the entry 
in a COCB if the search was 
successful, that means the . 
compaction table name was found in 
a COCB. If R2 contains zeroes, the 
search vas unsuccessful. ARG 
contains the name of the requested 
compaction table and J sets the 
position in each entry where to 
compare with search argument as 
following figure shovs? 


cOcsB 


a ee ene crc ee ee en ee ae ae ee ae ee ere ee ee 


C OC B - header 


a en ee ee a ae ee eee ee 


Coc B= entry 



























REP 





) MODULE | LABEL | { BHODULE | LABEL REP 








| | 


— 
3 --—> 


In this case J is set to the 
position of nage in a COCB entry. 


——— ee ee ee 





aaar| aid | use count | length 
9 
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OC2: IPWS$OC - MAINLINE 





















INPUT? PROCESS ouTrPuUT 
R2 
I gece eo am 
SNCB : 
SHCA teo---- > If name not found in a COCB and furthe: 
| : [2] GBTVIS allowed: . ENDSE 
>COcB : 
COAG Ge 
core | ~---------—- vy 
ARG.J St re rr em en A. Search for free entryin a COCB. 
/—_—— .-. 
< eesceoee > 
R2 
aa See ewe rete enn n ==) B. If no free entry found then prowide 
a new COCB. 
f——*.. 
< irik GETSPCB1 
oc3 
TCB | 
TCBIT et enn rere a C. If *S*-state is presented then 
branch: 
coo. [44 t 
[r= f/f 
Vv 
D. Provide ace for a compaction 
table. a bias 
EE 
</esvese’> -GETSPCE2 
ocs 
: E. If *S*-state is presented then ; 
branch: 
foo > htm Tt 
A A 
v 
FP. Load requested corpaction table. 
iF , 
@eesee > CPTLOAD 
/ océe 
G. If *S*-state is presented then 
- Free space again. 
~ Reduce actual GETVIS counter. 
- Branch: 
ooo >[ 45 i 
[e-*; ay A 
v 
H- Increase nuaber of entries. 


iI. Branch: 
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OC2: IPWSSOC ~— BAINLINE 
NOTES | SODULE | LABEL | REF } MODULE { LABEL {| REF 


12 82 contains zeroes after return 
from CPTSCAN. Further eureL? is 
allowed if the total GET 
count wr core “colnter ¢ aaa the 

ETVIS counter Enea oe ‘after 


ARG containes 
Eas ne posse ton of the i Soant ma 


Ye 





: Pt 
— | a 


Chart oc 335 


oOc2s 


IPWSSOC — BSAINLINE 


ImsPoT 





13 


336 






>COCB 
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PROCESS OUTPUT 





ween nnn pen [13] If further GETVIS is not allowed: 
| eee eae es 


ro | A. Search for a _ noa-default compaction 
| table which is not in use. 


C oteuse CPTSCAE 
we 





ocs 


ES | rn ne B. If compaction table found then 


- Load requested compaction table. 


{a 
< stanse > CPTLOAD 
—s 





- Branch: 


Reet ee een we C.. Search foe 2 default cappaction 
table, wv bich is not ip use. 


ROTES 
Fercner pighe is not allowed 
aif COTG <= COA 


Issue message W311: 


1¥31I: WO SPACE AVAILABLE IN 
COMPACT POOL. - 
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f‘——te 
< eecces > 


C__] +------------- D. If compaction table found then 


- Load requested compaction table. 





a a 

P pet > CPTLOAD 
océ 
- Branch: 
[ooo ’> 15 
“| *y/ } wACB 
B. Queve message 19311. — [wane | 
F. Indicate *S*-state. ee rene eee ee eee 
_ fa) | If a sessage has been queued: 


A. Send a ressage to resote. 


J, 
2 wesase > SERDASG 
/ nEI0 


{75} Unlock COCB chain. 


is, 
eo wcnawe > IP#SRLE 
os 


fre} Return. 





Return to sige] 
ye 





{ SODULE §| LABEL {| REP ) HODGLE | LABEL | REF 
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OC3: IPw$$OC - GETSPCE? 
IuPurT PROCESS OouTrpur 


lob, 
lec” From SAISLIVE 
—/ 
| GETSPCE1 | 


Load length = 1K. er oe 
SWCB Issue 


ee 
a 
a an 
yoo. 4 
ae oe 
cadanticd 


R1 


Pesececoom 


eo If GETVIS was not successful: 


R15 


GETVIS, PAGE = YES, SPID = SNPC. Sore ee ee ene 
A. Queve sessage 1¥281. et a ee ee 
B.- Indicate *S*-state. er re eee re ene ee 


[7D eT tases coe, ae 


Cc. Branch: f-<) 

fsa rere: If this is the first COCB im chain: : 
A. Set pointer to first COCB. er a 
B. Store total GETVIS counter. Sea eee eee ene 
Cc. Set actual GETVIS counter. a a ee a eee 


D. Set nuaber of entries in COCB. Se nn renee 


BE. Set address of first COCB emtry. Soe ss ss os SS ere e— 


F. Branch: [p-=" 


Increase actual GETWIS counter in first 
COCB. 


{07} Link new COCB to COCB chain. 


Retura. 


Return to SAINLINEee 
3 


a! 
‘ 



















WOTES 
2 Zhe Ag uested storage area_starts 
Page boundary dna is :} located 

within e compaction table pool. 


{ 3 That mseans 215 contains a return 
code other than zero. 


3a Message 1¥281: 


1¥28I: GETVIS FOR COMPACTION 
TABLE CONTROL BLOCK PAIL&D. 





{| SODULE | LABEL | REF NOTES 
5 That seans that SHCA contains 
zeroes. For the whole COCB chain 
total et te counter et Ogee 
ac val r e 
tained in the £orst cocs only. 


{| BODULE | LABEL 4 REP 
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ocu: IPWS$SOC - GETSPCE2 
INPorT PROCESS ourPpuT 


| 
| 





GETSPCE2 


RO 
for} Load length = 1K. asses acces coe es | 
RI 


| 
SNCB | Issue GETVIS, SPID = SHPC. as cs 


fos} If GETVIS was not successful: 


pel 


0009 ce cron er esce te: 
' 


| 


5 J 
- 
wr 
a 


5 ! 
| ! 
| | 
i | 
| | 

J 

! 
| 
! 

i 
| 
, | 
i | 

aremeerem \ireramperemremnamrans \/ime-samemenn \Y manera 


A. Queve nessage 1V29I. 


B. Indicate °S*-state. nee nee n nen a> 


SECB . 
C. Sranch: ooo 
fac) oy 


&>COCB 


w--+----------- +--+ Increase actual GETVIS counter in first 


05 | Return. 


Ee CR TEP ES PA EE Ar SOME CT AAG ETA OS SMO EGER ec SD SREY Pe cece egy SAPP See Ce 


Retura to BAIRLINES*e| 
ae 


< 
NP 


















NOTES ( BODULE { LABEL 


& Por the whole COCB chain total | 
GETVIS counter COTG and actual 
GETVIS counter COAG are maintained 
an the first COCB only. 


NOTES REP b 


3 That reans R15 contains a return 
code other than zero. 


3A Hessage 1V¥291: 


W291: GETVIS FOR COMPACTION 
t TABLE FAILED. 









| SODULE | LABEL | 
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Oc5: IPWSSOC - CPTSCAN 
INPUT PROCESS ourPuT 


ob 


ane From MAINLINE 


| CPTSCAR 


R2 


Clear 8&2. Renee eee ame> f ! 


[2 


“ 
wz 
a 
w 


wee en------ === Set COCB pointer to first COCB in chain. -----—---—-—-—--—-—->_ [CocaPrr 


Set scanner to first entry. aes sae? [oz 4} 
Reete sce scanning through active entries -—-------—---——----— [os 4} 
Y- 


Sean through COCB chain. 


If requested entry found: 


COCBPTR Seer ees caenemeeiene A. Save COCB address. Eases) PTR2 


J B. Get entry address eee 


; 
e 
a 
aw 
La 
! 
i] 
( 
1 
1 
1 
| 09 90 omy 


Return. 


GR a AERTS EEE ee Ca PEE EE CTD CTBT ED GEER SOR RENN EDS ENT EMS VEEP ED (EPSRC PST NE SENET 
Vv 

1 

! 

t 

' 

t 

i] 

i] 

i] 

i] 

‘ 

i] 

| 

t 

4 

| 
& [z] 

wi 


Return to MAINLINEeece 
a 
e 











NOTES 


5 For scanning thra COCB chain the 
search arguaent is passed 4 ARG, 
the position in foc entry by J 
from SAIBLINE routine. 


{| MODULE | LABEL } RBF { BODULZE { LABEL | 
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Océ: IPWSSOC ~- CPTLOAD 
IuPur PROCESS OUTPUT 


ce 
ooo 3Prom BAINLINE 


Create t: jist for compaction 
[07] table eb bel oaded P 





CPTLOAD 


Issue SVC& (TXT = WO). 


ane 
St rane ern nena fos} If compaction table not found: 


A. Queve message 1¥30I. 
B. Indicate *°S*-state. 


C. Branch: 


Calcelate phase iength. 


Saree nererere nnn anf OS] Tf phase length greater than 1K: 


Be Indicate *S*-state. 


Cc. Branch: 


Issue S¥C& (TXT = YES). 


frausr> aan nn ae [07] If PHH3 is not available: 


A- Queue sessage 1¥321- 


B. Indicate °S*-state. 


Cc. Branch: 


Update entry in COCB. 


fee 


: 


wecccoueses ——--,----->[09] Update Luce. 


R2 


: 
| 


Set and icators. 


{73} Retarn. 





Return to MAINLINECce 
3 


NX 


<= 28 
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OC6: IPWS$OC - CPTLOAD 
BOTES 































{ HODULE {| LABEL | REF NOTES {| SODULE {| LABEL | REF 























3a Sessage 1¥301: SA Hessage ¥32I: 
aheek COMPACTION TABLE HOT a¥39t3 INVALID COMPACTION 
This check is necessary because 7 After tf losding th the hase this check 
user sant have specified shure, that 
up inten ionally a phase nare, his ease represents a cospact | 
which does not represent a tap @, genera by use of\ STAB. 
coapaction table. As the macro. | 
compaction table generated 


PCPTAB macro is ways 1K b 
long, phases with a length ocx 
bytes 5S consigered as cormpaction | 


7A Hessage 1¥32I: 
W32Is INVALID COMPACTION 
TABLE 


tables" For the first. 
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MAINLIRE 


Ree ae (it SE erate ea pear We eT 


ee em am ee ee erence ee eee gt rn eee we ee re re ee 








LOSTERA scre TPEND WSEXIT 
SE-2.0 SE-3.0 SE-4 20 SE-5.0 
eee ieee ene semen bere Wee os 
BIND-RTB OWBIND-RTH SDT-RTH CLEAR-RTH 
_______ 587321 oe ____ SB-3 +2 SE-3.3 SE-3.4 
NEG~BIED 
SE-3.1 


oe ee ee eee ee 


IPWS$SE - Sainline 
INPvT ; PROCESS 





EXLST 


LOSTER# 
SCIP 







ae eee beet es 


NOTES { BODOLE | LABEL COTES —t—isiCi(‘(‘(‘(‘(C*d CC ODULE | LABEL =| REF REF 





HOTES 
“Phe Nainline does not show the $$  °&2|}  &#| Mainline does not show the If me of the Exit*s is Bchesuled 
processing flow, it Shows the erit by VIAN, the following regist 
routines as Set are located conventions take place: 
within the aodule tous SB. eens 
Exit Routine is scheduled by try: 
ACP/VTAMK, if the given event takes ararmeter List VTA 
place. RW= Return Register VTAA 
R15= pas Register 
The Sodule: IPWSS$SE is loaded Processing: 
during Tee rONee Initialization. BO = Workregister 
In addition, the Mainline Code R1 = Workregister 
will contain the EXLST Hacro, ay = worker ster 
which is requ ized to enab the R3 = Workregister 
Exit Routines to ACP/VTAN. This is R4 = re resS of PNCB 
done by the PNET SNA OPEN VSE RS = DCB 
Subta (IPWSSS1). t BS = 
= 
The PNET SRA Exit Routines works R8 = Subroutine Linkage 
under control of the VSE Subtask R39 = Base Register 
under which the SNA Open was RI0= Address of VSB, 
perf orrmed. Bite yaen 508 FCB addressing 
= 
The EXLST Macro contains the EXLST R1i3= Unused : 
addresses of the four supported Ris= Return Register VTAM 
Exit Routines and will be coded as R15= Return Code to VIA 
follows: 
EXLST AM=VTA 
SCI posctenour, 
TPEND=TPEROU 
LOSTERA=LOSTROUT, 
NSEXIT«NSEROUT 
Note: DPASY Exit Routine is not 
spp ported because Expedited Flow 
Comgands vill be recejved via 
RECEIVE Operations and will be 
andled by the PNET Driver. 


[+3 


ACF/VTAM{E) EXITS 


ourpoT 


} MODULE j LABBL 
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IPWS$SE ~- LOSTERM Exit 


(USERPLD) « 


INPUT PROCESS ouTeuT 
fet 
@is.| 
1 Ieee >Scheduled by ACP/VTAS. 
| aut 
REG.1 oe ee a ae a ae come eee ee ae Gpon entry to LOSTERM, R1 ints toa 
parameter 1 ist vhich coataias the 
| eason Lost “Cole ain the 4.th word the 
| address of the SCB in the 3.rd word 


facs-adar | 


Reason-Lost | | ---~---- <---> 
Code 





Load required addresses. 

















A. Load Base Register from VTAS Reg.15 Reg.4 
Be Get access to the PNCB via SYSCOM. | paar fa ace) t 
ae ae C. Load address of NCB from USERFLD of j{— 
ae Parameter List. | Reg-6 
REED D. If no NCB-Address, ignore Event. | Se. 
vbcB 
vbocatTtTc 





{ VDCBITCV=ON } 
| Load Address of ¥DCB. ; 
| if WIAs Tersaination Code set, ignore 


CED | 


Event. 


- If Reason-Lost Code 12, 20, 32, or 36 
H then: 
wre? A. Move Reason Lost Code int 
1 termination qualifier byte NCBITCDE. 


B. Roques imgediate termination of the 
seSsion, (SCBTTCL=08). 





26 0008 OP OF 0G 00 Fe OP OOF Fb Oe ON Ot Fe OF OD Oe 00 Oe O88 OP OE 09 Fe OP 00 HF OO 0 Ft BO Ed OF 08 8880 os Os OF Os OF ee 





= 
= Check for VTAM Termination. cle 
| 
$ 
| 
| 
j 




















C. Inform PNET Driver about LOSTERS 
Event, flag NCBACTI. 
t—- D. If Reason Lost Code = 36 give 
Reg .4->PNCB inforrg operator via pessage: °Tke7I. 
PNCBTLD 
A (LDR-TCB) | SERRE: Be tone aadcers of PHET Driver TCB from R11->LD~-TCB 
Sy a ee ee ee Sy an 

i post ECB of PNET Driver TCB. | TCEB 

Issue VSE POST-Sacro. ScueGE 


Se ONE REFEREES SPU REP SREY ENT ANT ADS Ar SOE, SSG SERENE TRY GOS Sanam STU gE SATE SRS SGP SSSR SSDS aS SS SN 


A Le Se SE NT SR ET PT SE ET FE MEDS SE I EE I TI ONT EM OA PET SC CER MERGER GPRS SE SRY OOS | 
























NOTES HOTES 





{ HODULE § LABEL j REF {| HODULE } LABEL ) R&P 















This Exit 1s scheduled by aCP/VTAA ‘) 4 hed ppl amet ion of the various MSGROUT |$GHKS 
when contact with a logical unit Lost Codes_see ACP/V¥TAA 
has been lost, wnen a logical unit Prograas ag Sanual. 
has reyuested that a sesSion be he exit is scheduled vith 
terminated, when certain errors ieauen Lost Code = 36, the 
are detected in transmission, when operator is inforjged via aessage: 
a logical mnie ee ten orarily 
unavailable Zrtas 1s WRE7I LOSTERS EXIT SCHEDULED POR 
halting (HAL? ow NET. obre issued) - RODE=nnannnnna, REASON LOST CODB= 
2 Load various required addresses of 
Control Slocks and Base Register. Note; Reason Code 16 and 24 are 
The Batty Point Address is 9 foaded handled by NSEXIT. 
from ry lees 15 pacoes by 
ACP/VEA unto Register 9. 4B bg ECB of the PNEP Desver ?TCcB Post 
The address of t : Vs8/POwER o5Rost ted by issuing the VSE 
pettanren is loaded from t -MNacro. 
“Lise Communication Region The address of the PHET Driver 
Y¥SCOM) and the address_of PNCB oaded from the PNCB { 

ie loaded from the CAT, label CAPW jabel PNCBTLD in Register 1. 
into Register 4. Note: This igplies posting of 

| The address of the NCB is loaded } the VSE 1 apd coll egaster BCB and 
from the USCRFLD oF the Farapeter: sakes t. artition 
List in Register 6, if no NCB dispatchabie for the V¥SE j | 
Address is available ( (no session Dispatcher. 
exists }, the Event is ignored. 

5 Control is given back to VTAH via 
3 The VDCB Tore snation aape Code is Register 14. 

examined if VTAS alrea 
terminating. If so, the” Event is 
meaningless and control is given 
back tO VTAM w/o any actions. 
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IPWSSSE ~ SCIP Exit 
INPUT 


REG-1 


| icb-aaar { 
apenas: | 


ESO aa CATERED PRERENDER IES CI “SEE CETER ESCO SUSIE I SACS ERE E-CARD Se ASA 





Reg .4->PNCB 
PNCBTLD 


A (LOR~TCB} 
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PROCESS OUTPUT 
re 
CT by ACP/VTAS. ‘ 
Upon entry to SCIP, R17 points to a 
pararaeter list which contains the 
tead-only RPL address in the 5-th vord. 
Reg.9 
[o2} Prepare various addresses. a 
Base 


I 


A. Load Base Register from VTAMS 


Register 15. | 
Load address of PNCB via SYSCOMN. | 





=o 


B. 


Cc. Peecore RPL address from parareter 


ist, access 5.th word. 
Reset Register 11 to zero. 





Vv 


D. 





If RPLCNTDC 


BIND command : 





> 


tt 
< eeesce D> 


co / 


BIND-RTH SE-3.1 








-Got is 
A Go to == [08] | 
If RPLCNTDC = UNBIND command : 
us, 
ecece0ne > 
- USBIND-RTH SE-3-2 
A. GO to [oss 


If RPLCNTSC = CLEAR command : 


—___3 








< eocece > 
CLEAR-RTH SE-3.4 
A. Go to aay 
If RPLCNISC = SDT command : 


| 
¢ eeeece > 


7 SDT-RTe 


SE-3.3 





A- Go to 


Process RQE or STSN commands. 





A. Load address of NCB from USEKFLD of 
"the R-O-RPL and store it in Register 


{ 
B. Request node shutdown, flag Pane en ee ee 
Activity-Byte in NCB. 
Cc. Set Termination Code to close the | } 
session. } sae SS! 
D. Load address of PNET Driver TCB from 
PNCB in Reg.11. 


TCES 





Post ECB of affected TCB. > 


Issue YSE POST Macro. 


Return to ACP/VTAM via Register 14 


Exitece | 
31 
| “y/ 


eee 


3 


Reg .4 


A(PNCB) 


Reg.7 


Reg.11 


ZERO 


| 
| 


§CBLNSR=O"8 


NCBTTC 


CBT TCL=On 





R14 4->LDR-TCB 


ECB=ON 


ieee 
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IPWS$SSE - SCIP Bxit 








NOTES { SODULE | LABEL 


The SCIP £xit is driven when one } 
of the following session control 
commands ace received by 

VSE/POW ER: 


CLEAR 
Stare Data Traffic-sDT 
Set and Recovery~RQK 
and Test Seq.Nurgber~STst 


BNBEND 


These comzands Pooag tar RQR, are 
sent only from the rimary to the 
Secondary Application. 


Various addresses are prepared to 

et access to the Control BOGE S- 
he et Point Address pace 
from VTAR via Register 1 
loaded into Register 9. 
The System Communication Region 
accessed to get the address of tis 
VSE/POWER Partition. The address 
of the PNCB is than loaded from 
Ee CaT, label CAPE into Register 

it 


The address of the Read-only RPL 
is loaded from the 5.th wor of, 
the Parameter List in Registe . 
Register 11 is set to zero. This 
is’ required to check the POST 
mechanisge on return from the 
Subrout ines. 


If the RPL control ebhte {APLCRTDC) 
indicates BIND control command 
{RELT ALND. received, the 
appropriate subroutine is called. 








REP 


BOTES 


4 If the RPL control byte (BPLCHTDC) 
indicates UNBIND = rol command 
(APLTUNBD) received e 
appropriate subroutine is called. 


5 If the RPL control byte (RELC ATSC) 
indicates CLEAR control c na 
evh oar pl @ received, he’ 
appropriate subroutine is called. 


6 If the RPL control byte SEPLCRTSC) 
inicates SDT contro] coamsan 
{RPLSDT) received, the appropriate 
subroutine is called. 


7 ne of the following commands has 
teiggered this exit, either RQR or 


It is now regeired to inform the 

PNET Driver about these 

speupe corte commands. 

The termination code of the NCB, 

NCBTTC is 1sgsea BCBTTCL=O8), 

the activit CBACT? is 

fhagged ¢ (s - R=ON), to jnfors 

Rk about this situation. 

The address of the PNET Driver 1TCB 

ae loaded froa the PNCB, label 
NCBILD in Register 17.’ 


8 The ECB of the Lied 4 Register 11 is 
poant ing to ig sted ian =ne VSE 
OST-Sacro, 
Zero. 
Note: 









This is oe ost in the 
‘3 cb Lele the 


¥SE WER Master EB and 
pet 2tion dispatchable for the VSE 
ispatcher. 


9 Control is given back to VTAM via 
Register 14. 








REF 


4 SODULE | LABEL 


Post 





: 
| 
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IPWSS$SE - SCIP-BIND RIN 
InPpot 





Reg -4-> PNCB 


REG.1 


A (BIND-RU) | 
A (ACB) | 


hy 
— 






Reg -3 


[pina Data } 


Reg .4-> PNCB 


| 
| 
| 
! 
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PROCESS 





ay esa by SCIP exit. 


Load address of ¥VDCB from PHCB to get 
access of it. 


Load address of BIND-RU in register 3. 


pcaeare ve versal storage via VSE GETVIS 
o to build a Session Request Quene 


Blerment (SRQ zy 
oy 


Ae If no GBTVIS storage i 
available {RBG.15 aot *Zero) . 


Build Session Reguest Element (SEQZ. 
froa Skeleton. see 


A~ Hove BIND BU into storage just 
obtained an 


B. Build RPL and NIB skeleton in SRQE. 
C. Move Primary LU-Nase from BIND-kO 


into NIB. 

D. Chain SRQE to VDCB to allow 
connect ion 

BE. icate "Connect Request® in YDCB 


{upebCos=ONp . 
FP. Load address of PWET Driver TCB froa 


PRCB in Reg.it. 
F7 he] 


G. Return from Subroutine. 


send ne ae response to BIND, because 
short on storage situation and infors 
Geecatee. 


A. Bove ACB-address into RPL 


B. Sove Primary LU-nare from BIND-RkB 
into NAHE fieid of the NIB. 


C. Execute SESSIONC Sacro to send 
negative response for the received 
BIfD command. 


If our error detected by SESSIONC-—Sacro, 
Reg-35 not zero: 


A. Infors Operator via gsessages 1RD8I 


Infors Seergtoe about Short—on-St orage 
Situation via guessad©: TRE2I. 
Return-Code=0 


Return to SCIP-Sainline. 


Bxitece 
=| 
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=i 


| 
aac ae a 


ouTeuT 


Reg.5 
Rege3 


Reg-2-> SROE 


A (BIND-RU) 


Vem Vie Ve Ver Verran amen en-emenamenen \amaememow Vy 





keg.11 


fa (LDB-TCB) } 


1 


ne GUE ee EERE CS PE GE PS ET TE TES SR ETS TO UO Ge SE NES PS SS A TL TS SS ie Se eT cA i er EE 


RPL 


RPLDACB 


NIBSYA 
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IPWSSSE ~ SCIP-BIND RTW 
NOTES 1 


The BIND Command is sent frow the 
primary end of the session to the 
secondary to establish the 
session. The BIND indicates that 
the PLU wants to start a session 
with the SLU and the RU contains 
session parareters that the PLU 
will use for the session. 


Spon entry to BIND, the 4th word 
the parameter list contains the 
address of the received BIND RU. 


1 The address of the VDCB is loaded 
from the PNCB in Register 5 to get 
access to the VDCB. 


MODULE | LABEL 





ie address of the BIBD-RU 
located in the 4.th word of the 

parameter | list is loaded in 
egister 3. 


N 


3 Virtual storage is reserved to 
ouiid a SRQE Via the VSE GETVIS 
Macro. The length of the SRQE 1s 
derived fros an e label SRQETLH of 
the SRQE DSE Macro and loaded in 
Register 0. 


GETVIS LENGTH=(RO) ,ADDRESS= (R 2) 
t 


3A If the GETVIS was not 
successfu (8 Ba. 15 not zero), 
no storage has peen obtained, 
as Band Comaand is rejected 
see . 


4 eel SRQE Skeleton defined in the 
odule is used to build the SROs 
in the reserved space 
The BIND-RU is Ph dea into the 
Tne pi and SRQEDS) 


The L and ‘ie oe def inea in the 


§8°F are goved in 
the Sagi, Saber: TBO RPL and 
The Primar LU-Name is rmoved froa 
ts BIND-RD_ into the NIB, label 


IBSYS for later use. 
The SRQE is flagged to indicate 
conne ba baie DCBACTI, 
VDCBCON=08) , which informs the 
His REXESE about the received 


It is now required to chain the 

Session gpeunest Eleszent {SEQE) | to 

the VDCB to allow establishment 

for a_ session. 

eke ok Eis chained on top of the 
wakes ain of the VDCB, label 

BPSRQ b 


using the 
ogc tnsteue 


ion. 






| REP 








HOTES 


The Adress of the PNET Driver TCB 
aosded from the PHCB in 
11, to allow Posting of 


} SODULE } LABEL 


Reg ister 
the PNET Driver ECB in 

Mainline Routine. } 
If no storage has been obtained oe SESSIQNC 


negative re 
The LU-Naze oved froa the 
BIND-RU in the WARE Field of the 
#IB. acre ACB-Address is moved into 
the RB Cece executing t 


ouC Ha 
SESSIONC REL=RPLNEGBD 
RPLNEGBD RPL 


Pages 


AM=VTAM 
uIB=iTBBiup 
CON TR O: 
RRSPOuD= (a 
STYP 
SERSEOLER, 
SSENSHO=18 


MODE=RECORD, 
NAME=nonnn 


After completion of the 
S£SSIONC-Macxro the Return Code 
passed from VTAMN is checked for 
gay error. If the SESSIONC 
opposes with error, the message 
Gap i is displayed to inform the 
Operator about a the 
Soss10nc—Hacro. 
Anyway, the Operator is inforsrjed 
via Bessage: IRE2I, that a 
temporary Short-on-Storage GETVIS 
Situation has occurred. 


RPL 


»PuE), 


NIBBIND NIB wis 


create a SRQE be 
o small, a Om 
ill 
e4 he OP 
end the session by sending a 
t 


bend of 


The Sessages are retrieved froa 
the Message Definition Module and 
possage substitution is invoked to 
fill the wariables of the 
messages. 
Phe te uired el dagen Blocks (CCB, 
eee ch BAB, will be in the 

, used to gtsplsy the 
maces wia SVC 0 with wait on 
completion. 


&SGROUT peens 


Control is given back to the 
SCIP-SHainline via Register 8. 
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IPWSSSE - SCIP- ONBIND RTS 
Inport PROCESS ourPpuT 





L 


Called by SCIP exit. 



























Reg.t-> ronmeeer (od If *CLEAR® already received, ignore [eee’ 
3rd vord : | keg.6 
a (ica ooo > fo2] Load wcB address from the 3rd vord of 
(re) a pe ae [92] the parameter List in Register 6. 7 
Reg .6~> HCB 3 Flag session status field of WCB t eA SEEEAIS 
= : inform about received U#BIND command. 
NCBSSEST 3 
NCHSSTS=sON | |-~-------—— --t---— If TERMSEBSS a dy issued by t 
[wcusstseon ] JA TSRUSEES Glgondy reese neg. 11 
| ae A. Load address of Disconnect TCB fron RENEE SES) 
Task-Entry 1 NCB Task~-Entry | ee 
Be Return from Subroutine. [eee _Reg.6->NCB 
SCBSEST 
NCBSSUB=0O8 
Bequest Session to be closed. 
wceBacTt 
A. Indicate ‘Session Close® in SCBACT1. ECBLESR=08 
Be Set NCB Termination Byte i ae a 
inaediate tere imation sia Se Poa | 


Reg.4-> PCB 








PHCBTLD 
A(LD~TCB) 








Ce toad address of PNET Driver TCB fror 


WCB. | Reg.11 





Return to SCIP-Sainline. 


se | 





NOTES 1 SODULE | LABEL | REF ROTES § MODULE | LABEL | REP 


4 Ag art of an earlier teraination 


As a part of the session Q 
i @ session the TERMSESS macro 


termination process, the PLU sends : 

ah Unbdind Request to the SLU. The was executed by the Disconnect 
secondary Application should now Task- It is now required to loaa 
cleanup its Control blocks and the address of the Disconnect Task 
other information pertaining to for later posting by agcess1a4 
the session. the related Task Entry in the ACB. 


vpoe entry , Register 7? contains If no Disconnect Task 1s waiting 
the address of e Parameter List. on completion of the 


If the *"CLEAR* command is already 
received, this is indicated in the 
session Status field 

NCBSSCL=ON, the "UNBIND® 2 

3s ignored and control is given 
back to ACP/VTAM. 


TERMSESS-Nacro, the Session 1s 
requested to terminate the 
uCBACTI is flagged (NCBLUSH=OH) , 
the NCB Termination Code NCBT is 
flagged (SCBTTCL=0H) and the ; 
gadkess of the PNET Driver TCB is 
loaded in Register 11 to allow 
posting in the SCIP Mainline. 


Control is given back to the SCiP 
at? m4 Begister 8. 


The address of the NCB is derived 
from the 3rd word of the 
Parameter-list. 


Mainline v 
The session status field NCBSEST 

of fhe NCB. is fisqged Gy eee 

to indicate ,UNBI 

received. 


Coasan 
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IPWSSSE - SCIP-SDT RTP 
INPUT PROCESS OUTPUT 


be 
° ry 
eos Called by SCIP exat. 


Load NCB Address from the 3rd 
Soe ee the Paraseter list and store Pa $5, 6 





Reg.1-> 


~‘ 








3rd word { 


A (NCB) 


REG 26 


——> ,{wCB-Addr 





| 





Reg .6-> NCB 
NCBSEST Reg.11 


NCaWSDT=ON (3 If Connect Task waiting on SDT Event. ooo fa (COn-2 CB) 


NCBCTCB2 
A (COMN=TCB) 





} A. Get address of Secondary Coanect 
Task from _ task entry of the NCB in 
{ Register 11. 


B. If Connect Task is not ooo 

available, ignore SDT Command. [e-" 

Ce vaag NCB Session Status Paield 
NCBSEST (NCBSSSD=ON) to infore the 


Connect Task about received SDT 
command. 


nege6-> ACy 
NCBSEST 


NCBSSSD=On 











Return to SCIP-Ha inline. 


Exitece 


«g ee 





WOTES | SODULE | LABEL | &EP NOTES ) SODULZ | LABEL | REF 


When required vy the session | The WCB Session Status field 
parameters, a Start Data fraffic NCBSEST is tested if 
SDT) Comaand 1s sent from the Connect Task is wa 
tiaary Application Program (PAP) Event. If so 
to the peconcaty Appl. (SAP) at the Connect Task in th 
the beg inning the session. The examined to get the address of the 
inforas the SAP that flow Connect TCB for later posting in 
of data requests; data flow the SCIP-Hainline. 
control collaands , and responses If no TCB-Address 1s available, 
can pe started. the SDT Command is 1g 


s d 
e 2S updated (HCBSSSD=ON) to infora 
Register 1 points to the farameter the Connect Task about received 
1ist passed from ACP/VTAA. SDT Command. This coapletes the 
; session establishgent and Data 

The NC& Address is deraved frous Comaunication can now start. 
the 3rd word of the . : . 
Parameter-list, VTAS has stored Control is given back to the 

£ in $ Tafe 


UBpon entry to SDT-routin 


the contents of the userfie SCI P=Ha in 
the 3rd word of the 


Pararmeter-list. 


via S@egister 8. 
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IPWS$SE - SCIP- CLEAR RTN 

















Task-Entry me -—- NCB Task-Entry 


ee B. Return from Subroutine. less; Reg -6->NCB 


NCBSEST 
NCBSSCL=ON 

NCBACT4 
NCBLESR=ON 


INPOT PROCESS OUTPUT 
4 
eee >Called by SCIP exit. 
Reg.1-> | ‘| 
3rd word | | Reg.6 
| A (NCB) >{01 zed NCB Address from the 3rd word of Sle! f A(#CB) 
a he parameter List in Register 6. 
-6-> NCB O02} Plag session status field of NCB to as ee 
peed ta a anfore. about received "CLEAR® command. 
NCBSEST | . 
[NCBSSTS=0R } i steestenteeteniiaaienteeeaentmnennene --> If TERMSESS pipesdy assued by the 
‘ ie Disconnect-Task 
A. Load address of Disconnect TCB from : ee | 
{ 


104 Request Session to be closed. 


keg.11 

fa wsc-reB) } 
t 
| 





| = 
| 


Indicate *Session Close* in NCBACTT. 








B. Set NCB Termination Byte for 
immediate termination. 


\WVememnseeecpnamrene \/enmemamcue \/a omemsene 
. 
i 3 : 


WCBTTC 


NCBITTCL=OR 





Reg .4-> PNCB — 
PNCBTLD 
A (LD-TCB) __> Ce. toed address of PNET Driver TCB from I 


fos] Return to SCIP-Sfainline. 


Reg-11 





are 
ye 


ot cee en ee Sn es a A SRE ANS EGR REI rer SS SAPS SY SS SERS pers epee sae SE TE SERS SS 


cm eae erie ge rename wn 
e 
NX 











es NCB T ereingtion C ode NCBTTC is 
flagged TeCBPECL=Om) eae the 
address of the PNET Driver ?TCB is 
loaded in Register 17 to allow 
posting in the SCIP Mainline. 


list, ACF/VTAM has setup this. 


« The session status field NCBSEST 
of the NCB is oer arges (ECBSSCL=08) 
to indicate, 
received. 


Comrmand 


53 Control is given back to the SCIP 
Mainline via Register 8. 


I NOTES {| MODULE | LABEL { REF NOTES  OTES ——C—C—CCi ODULE | LABEL | REF MODULE | LABEL | REF 
The "CLEAR* command is sent by 3 AS part of an “3 AS part of an earlier termination | |  °»+§- termination | f 
theprimary LU when the Flow o of e@ session the TERMSSESS macro 
Data Requests, Data Flow Control was executed by the Disconnect 

| CommandS, and Responses is to be Task. It is now required to load 
stopped, either because the the address of the Disconnect Task 
prima LU is terminating or it for later posting fnee eccorsang 
vanes o take some recovery | the relate Task. fatty an the SCB. 
action,. 

5 | 4 If no Disconnect Task is waiting 
poe entry , Register 1 contains on completion of the 
e addreSs of the Parameter List. cERROe S-Hacro, the seers is 
: . red ueeted to terminate 
1 The address of the NCB is derived ACT1 is flagged teeta Si=on a), 


from the 3rd word of the parameter | 





att 
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IPWSSSE - TPEND Exit 
INPpoT 


PROCESS 





ee by ACP/VTAB. 


ieieamemnena ( Up 





REG -1 on eatry to TPEND oints t 
Pranetex List whach Ue ains the SPEND 
eason Code in the znd word. 

aCB-addr 
Load various addresses. 


f Reason Code] 
[ aT | 


| 
j 


A. Road Base Register passed from VPAMN 


eg.15 


B. Load Address of PNCB via SYSCOM. 


Reg .4->PNCB 









PNCBVDCB 


f A (VDCB) | 


PSCBILD 


ee 


Load Address of VDCB from PNCB. 
Load Address of LDR-TCB from PRCB. 


D. 


ree, [oa] If Reason Code = 0 ; 
[ a 


A. Set normal shutdown reguest in YDCK 
for all sessions, (¥VDCBEOJ=0N). 


Go to 


Be coe 
4 


00 05 00 00 0099 60 00 08 os FF OF Oe 08 00 00 Fe 08 80 Os Re nee NE et Bee 


r 


am If Reason Code = & : 


A. Set VTAM Termination Code in VDCB to 
force igmediate teragination for all 


sessions (¥DCBTITCY=08). 


B. Set termination gualifier ¥DCBITCO 
to inform about ismediate shutdown. 


fos} vied VDCB Activity Byte VDCBACT? 
Le rl al to Fegtest stop on TPESD 
nte 


06 feet ECB of PNET Driver TCB. 
Issue YSE POST-MSacro. 


Return to ACP/VTAB via Register 14. 
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OUTPUT 


Reg.9 
Base~Addar - 


i 


SE SERED STEERS SIT GTP NS RDN PETES CGE SEAPSS CDESC Pt SY SOD Rati (DA ELAS SRP GIS! RTD 


Reg.4 
A(PRCB) 


— 
= 
| ws 


A(VDCB) 


ili 


heg.12 
~—____._. > [A {LDR-TCB) 





: 


Reg .5->¥DCb 
WDCBTTC 
Tera .Code 


all 





t 
| vocurrce | 
VDCBHALT=08 








: 


VDCBACT1 


__| VDCBSSTP=ON 


| 
—— 





a 


R11-> LD-TcB 
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IPWS$SE - TPEND Exit 
ROTES 
1 The TPEND Exit is scheduled under 
the following circumstances: 
Eather the Network Operator 
enters: 


~ HALT 







































i BODULE { LABEL NOTES 





{ MODULE | LABEL | KEP 


4 Bither the Network Operator 
issued: 
HALT HET,QUICK 
or ACP/VTAB is halting itself due 
Post 












NET 
or to an internal problea. ; 

- HALT NET,QUICK In this cases,the TPEND Exit with 
Reason Code = 4 is scheduled. 

or . ; : : Based on this reguest, an Abnoraal 
- BCEQu rae is halting itself in an Teraination for all sessions 
orderly fashion because of an without any activities except of 
closing the ACB: 


CLOSE ACB 


is requested. | . 
The Global Termination Type Code, 
vDCBPTC is flagged for ediate 
Tergination of all Sessions 
VDCBTTCV=OR) . : 
he termination qualifier of the 
YDCB, VDCBTTCQ is flagged 
YDCBHALT=0N) to inform the 
asconmect task about this event. 


5S The a tat} byte VDCBACT? is 
flagged (VDCBSSTP=08) to infora 
the PNET Driver about this Event, 
that peopagat son to all nodes 
should be done. 


internal problea, or is being 
abnormally terminated. 


2 The addresses of various Control 

Blocks are loaded ; 

The Entry Point Address passed via 

Register 15 from VTAM is loaded in 

| Register 9. 

The address of the VSE/POWER 

Partition is loaded from the 

ozeten Coamunication Region 

& YSCOM) in be fae Pag 9 10° and the 
AT is accessed to get get the 

Address of the PNCB, labei CAPN in 

Register 4. 

The Address of the VDCB is loaded 

from the PKCB, label PHCBYDCB in 

Register 5. 

The Address of the PNET Draver TCS 

is loaded from the PNCB, label 

PNCBTLD in Register 11. 

t 


3 The Network Operator issued: 
HALT NET Command 


ACF/VTAM in this case schedules 
the TPEND Exit with Reason Code = 
zero. 

This event causes norgjal Shutdown 
Process to be started, which 
implies that all sessions should 
close in an orderly fashion. 


6 The ECB of the PHET Driver TCB is 
osted by issuing the VSE 
OST-Hacro. | : : 

Notes This capi see osting of the 

VSE/POWER Haster E and @akes the 
artition dispatchable for the VSE 
ispatcher. 


7 Control is given back to ACP/VTAB 
via Register 14. 


The Global Termination Type Code, 
VDCBTTC is flagged for normal 
shutdown of all’ Sessions 
({VDCBEOJ=0N). It is now the 
responsibility of the LDR to 
propagate the termination code to 
all sessions. 
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EPWSSSE - NSEXIT &xit 
InpoT PROCESS OUTPUT 










| suemnaheaet Upon eat to NSEXIT, R1 points toa 
[09] paranetecy list sh ach’ contain in its 5.th 
Geno onde meet ree n= -—— word the read-only &PL address. 


02] Load various addresses. 
A. Load Base Regaster from VTAN 
Register 15. 


B. Load address of RPL from parameter 
iaist in Register 7. 


C. Load Address of PNCS via SYSCOM. 


RPL-addr 





Reg -4->VDCB 








vocsTTc 


VDCBTITCV¥=ON 





Check VTAM Tera ination. ee 
Get address of VDCB from PCB. / 
if VTAS already in Termination 

| {VDCBTTCV=ON), ignore £vent. 


Reg.7-> RPL | 
aA (NCB) Load address of 8CB from 3rd word of the 


Parameter List in Register 6. 


AREA~addr . . . 
7" A. If no NCB address availabie eee > 

register 6 contains zero, e 4 
reguest is ignored. 





















Extract AREA Address from Read-only RPL 
to get access to the RU 
| NCBTTC 
panera r—--3 [06] SE CEEABOES EO Receared frcarrct=on } 
= A- Propagate session error in NCB 
s termination type. NCBTTCDE \__ 
:-—-—-> B- Move Termination Qualifier from 
: CLEANUP-RU. 
z Cc. Indicate Session Error occurred in NCBACTY 
: NCBACT1, set NCBLNSR=08. 
: uCBLESER=08 
Reg .4—>PNCB 3 
PHCBTLD z 
A (LDR-TCB) aa Dd. toast Address of PHET Driver TCB froa R11->LDR-TCB 
: | ° TCEB 
: 1 Be Post ECB of PNET Drawer TCB, RI RE CRT | 
7 issue VSE-POST Sacro. i 
2 P. Reset R&G.0 and REG.15 to zero. —— 
: G. Go to ooo” 
pe | 
i atteateaed > An invalid request unit leads to an 
immediate cetera to VTA. 
A- Reset Register 0 to zero and 
set Register 15 to four. 
fou} Return to ACP/VTAS. 
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IPWS$$SE - NSEXIT Exit 
NOTES 


The NSBXIT routine is entered 
whenever a network service request 
unit arrives for an application 
prog Gram. 

ny of the three types of network 
service request anits can be 
received: 








waseere Service Procedure Error 
- Network Service Cleanup Reguest 
~ Notify Request Un 


The CLEANUP Request is the wally 
type which is Supported and leads 
to an immediate stop of the 
Session. 





2 The various addresses required to | 
have access to the Control Blocks | 
are loaded. 

The Entry Point Address passed via 
Register 15 from VTAM is loaded in 
Register 9. 

The address of the Read-only RPL 
is loaded from the 5.th word of 
the Parameter list in Register 7. 
The Address of the VSE/POWER 
Partition is loaded from the 
eesco Comaunication Region 


the CAT, label CAPN in Register 4. 


3 The VDCB 1s accessed and the 
Termination Code is eoecnea for 
VTAM Termination. If VTAM already 
term inating (¥DCBr TCV=ON), the 
Event 1s ignore 
In this caSe, VTAM is alrea aay 
terminating, forced by either the 
Operator of through internal 
errors. 


4 The address of the ae = derived 
from the 3rd word of t 
Pararmeter-list, VIAM hee stored 
the contents of the Geert ia et the 


RPL in the 3rd word. If ao 
address, the request is agiore 

ana control is given back to vTAN 
w/o any action. 


ee ed 





{ BODULE } LABBL 








[ NOTES } MODULE | LABEL REF } 


5 The Address contained in 





Area-Field of the fond Gate “RPL 
points to the received RU and is 
oaded in Register 3. 


One of the following Events has 
triggered this Exit? 


HALT NET, ees 

VARY NET, 

VARY NET, TERA T pypesP 

Unexpected CLOSE, while thera are 
sti Sessionse 


These Events handles VTAM in the 

way of pending a CLEANUP-RU to the 

Application. &8o recovery is 

ossible because the SeSsion has 

een taken down. 

The Termination pe Code of the 

Session imnedia ely (HCBITCL= ned 

The Reason Code contained in th 

CLEANUP-RU is moved into the 

Teraination Qualst ier and | 

the kas 4 outs NCBACTI se 

tragzes eg at thet eho ee 

inform the that the Sextr was 
eduled tor one of the above 

described conditions. 

The Address of the PWET Driver TCB 

2s loaded from the races lapel 

PHCBILD in 4 Be 11. 

The ECB of PNET ae TCB as 

Boeeee by issaiag the V 

OST-Hacro. 

Note: This implies posting of the 

VSE/POWZR Master ECB and aakes the 

bispatone dispatchable for the VSE 

ispatcher. 

The Pieg isters O and 15 are reseted 

to zero before returning to VTAS. 


Any other Re eqeest Unit being 
received leads to an imagediate 
return to ACF/VTAM. Before : 
returning to ¥VIAH Regaster 0 1s 
reset to zero and kegister 15 is 
set to four (4). 


Control is qoneen back to VTAM via 
Register 14 


post 
Session as fla aged to shutdown the : 
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fit } RECV 


TERA SUBTASK 


SN-3.0 su-4.0 SH-5.0 S¥-6.0 SN-15.0 





KILLSBSS SEDR SSS6 
SN-13.0 SN-9.0 SH-10.0 








o | ATTH 
SN-172.0 Su-12.0 
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IPWSSSN - Mainline 
InPutT PROCESS OUTPUT 





[is- ys ee VS8/POWER Task Selection 


‘ly Initialize SA processing 


SN-3.0 


| If error,pDranch to eee > 


/ 
Issue first RECEIVE ANY request 
SN~4.0 


If error, branch to [oo )> foe J 


[03] Maan processing 
su-5.0 
{Cae Terminate SNA processing 
ian ere Q 


fc Detach task. 





VSE/POWER Task wail 


oe TE RE YR A Se EE ES PAGES SA FEY SENONNON SUE AO 
ST OS ST A TS SR Se ET EL EY GAINS SOLD: GUMPERT an SO 

ae A I A OS AE TN CS RI eS CTD Ce SAN NANT AEE RAINS ORCS 

2 CM SE OS OS Ce SR a TN NN CIT SN GTI NOT 





| ried 
1 ima 
| | 
| 
! NOTES | MODULE § LABEL { R&P NOTES { MODULE | LABEL } wer 
Se a a ne a a EI AD EL a 
} 3 Process reactivation of iy t i ' | ! 


BCB was posted. 


Ge eee aa NN 


ee een 


SNA Manager, check which | | | 


IPWS3SN - Initialize SNA processing 
InPur PROCESS OUTPUT 








. 

















| | b frat] | 
eee >From Bainline et ~_> CE 
' TCB | 7 if § i : | 
> {TCE 
| iia beuinentenieenetenteniaaieatentetncaamnenl c----->] 04] Set nee the ECB wait list in the ICB - ? ' a ! ‘ 
| t 3 i with S| as > |rcep | 
[rcrr | taatenateed ~ FA | = Rece ave oer £CB. aes t 
: : S rest de get te. 1i- ——>_ tcee | 
caeteetaataete i- 2 - = ——________2 
sacs ) a | jester I l 
i { [snes | --------- i--i-— {fozt Attach RJE,SNA subtask via DOS/VSE | 
= i rs Oe attach macro 
~->fa} rs A. If attach failed, issue sessage 
[Fae zo: a 1WOtl. , A 
i——________ a, “et.' os 
RSCB | t--z--z-----3[03] ea it foe re-activation by RJE,SNA 
i [RMSNSN } >fa] : . | 
| i—:—--->fou] rf the 4 pe subtask was unsuccessful 
: (stop code set in TCB of SNA 
R15 Si aid aoa! manager) : 
y | tnaeaea A. If the VTAN ACB was not opene 
&>ACB i z | successfully, issue message ivo2x 
ACBERFLG o--~---------—-— | B- Otherwise issue message 1¥03I to 
{a} --> inform operator that the SETLOGON 
i failed. 
SRPLST 
jeerer [e] | 





Exit, return to Mainilineeee 
e 
=] 























NOTES | SODULE | LABEL | REF NOTES 4 MODULE | LAbecL | REF 

































Initialize for SNA processing and IsiIt 4 Reset the live bat 1n the e£cCB. If | ) 
attach the DOS/VSZ subtask. an error occured in the subtask, ! 
the termination code *S* is set in ! 
2 ; ATTACH | the TCB of the SNA manager py the i { 
H 2A Rone San SUBTASK AVAILABLE FOR SGA subtask. i t 
| ‘ H WA WO2I VTA OPEN FAILURE RTNCD = | SuAB | 
f 3 Point R1 to the SNA receive ECB. SwWPrC XxX. ‘ { 
Issue the IPW$WFC macro to wait 
until the DOS/VSE subtask 4B hee ERROR 4-4 peptere a RTNCD, SGAB | 
coapletes. | *xx,yy"* SENSE sss. { 
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IPWSSSN - Issue first RECEIVE ANY request 


INPUT 


[SRPLRA } { 
| eS rEeT | 


SNCB 


an 


TCB 


RACB 


| RAMSNRA t 


NOTES 


order to acce 
Logical unit 


TCEB qoatere 
TC13 ate 




















Inform operator that RJE,SNA is started 
Via message 1V04I 


Set normal return code. 


PROCESS OUTPUT 
eo} R1 
ets, 
Et ose Mainline | { | 
ew em ere -_—y ee | 
Laren is :----->for] Initialize RPL: joa RPL «< | 
: 3 - aACB address 
7 : | - ECB address r > RPLDACB t 
p-——--: ———-—} | abies | 
$  gpowttoco--2}02] Issue RECBIVE ANY ! 
ae eee ee | | i | 
i--:——3 [o3} If the RECBIVE request has not been —> TC3 
ss accepted then : | cere 
ar | A. Set stop code *S* in the TCB. 
i--; ---—----> B. Issue message 1¥03I | regaster_1> 
wooo --- c. Set error return code. fooe/> [os | | Sa es \ 
| | 


that 


nput_ from 
1s logge 


a ons 


Exit, return to Mainlinecee} 
e 

Tat 

of 
v 


{| BODULE {| LABEL }{ REP NOTES { BSODULE | LABEL { B&F 


Issue the first RECZIVE request in RECV 2 tRECRIVE 


3B 1V¥03I ERROR OW RECELVE RTNCD r 
FDBK = xx, yy, SENSE = ssss.’ 7 


4 1WO4I RJE, SNA START&D. SuA4 
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IPWS$SN - Sain Processing 





import PROCESS OUTPUT 
tees ea Wait on completion of any event: | 
j Hi - receive ECB Y I 
1 nine a me ee ene _— : - work ECB 
1 one meen, A. Lock the SNA control block | 
iia becatacanel toe, | 
fo2} If receive any ECB was posted: TCB 


= Tc13 
A. Issue the VTAM CHECK macro to check oe eee V -——--} 
the completion status. 


' 
! 
Pee 00 oe Bees ne 


SRPLRA | 


RMCB 


TCEB 


' 


eo erst em 


B. Reset the live bit in the ECB. and 


get the address of the userfield 
f RMSNRA } eee em ee ~~ fa} (LUCB~ADDRESS) .— 
| C. If the ACB is not closed: 


SEDR 


start reader task 
SN-9.0 





rene ae amr ence 


fo3] If work ECB was posted: 


A. Reset the life bit in the ECB. 


> 
$ 
B. If request to terminate SNA t 
proceSsing is set: . : > 
= reset the SNA stop indicator t i 
7 update termination EYpe = > 
- reactivate the DOS/¥ subtask 
(post suptask ECB) to guiesce logon 









requests 
- wait for subtask posting 


ALR LS 


' 

{ 

t 
w 


C. If_*Kill SNA* has been requested by 
RJE,SNA subtask: 


KILLSBNA 


Terminate SNA processin 
SH-14. 





De Look for work: 
3, 

P oemamed > 
———/ 


AS TS SS CE IER DN SS SS Ss PSP DS Sg en eh Sh - f9rURSEP 

4 

1 

) 

' 

1 

i) 

i] 

' 

' 

! 

H 

00 08 00 Oe On oe PPOs OES OF OR DEE OE OF HOOD OE DE OER ON Ete 

3 ES 08 08 ve oo my 

1 

' 

| 

Vv 


= ser 





l Ah ee ee 


—---——--—>{04] If a SUCB still exists and the 
| SNWA-Ranager is not eeppccee to be 
stopped Or a LOGON P' ESSOR1 (IPWSS$L4H) 
is processing : 


Unlock the SUCB/LUCB chain via feee Sf01 


IPWSRLR macro. Loop to wait for *— 
next event (2CB-post ing) z 


fos] Otherwise unlock the SUCB/LUCB 
eee 


EA A UT OEE ODEN TPN ESAT SE OATES TA ELT QRS Wa GREED PO EA ES EE CP SEM CE RT EEN ESTES CIES EA ED RENEE EAT CLS OE EI OE HE TTT 


ye 


Exit, return to per 





after the CHECK. The associated 
LUCB address is obtained from the 
user field in the RPL. 


nr tte 


ee 
eee 
es 


NOTES | MODULE | LABEL | REF NOTES § MODULE | LABEL | KEF 
Wait for any ECB to be posted and } SAIN ] | 3 If the work ECB was posted, the { {SAINWECB} 
check whether SMA process *59 is to life bit in the &CB is reset. Then 
be continued or not. a SUCB/LUCB scan is cforrmed to 

detergine for which SUCB and/or 
SWFM LUCB action is to be taken. 
TA When one of the ECB®s is $SRSR But first a test is made if *stop | 

posted, the SNA control block SNA* has been requested. If so, ' 

(SNCB) is reserved, to ensure the RJE,SNA subtask is posted to 

Single access to the SUOCB/LUCB disable £ogon reguests. The 

chain. sabtask sets the *regquest kill | 

SNA* indicator. 
< If the receive ECK was posted, a CHECK Pinally the *look for work® | 

CHECK macro is issued on the routine is enteredwhich analyzes 
receive RPL. No tests for errors all SUCB/LUCB*s and activates j 
are made. This will be done by the processing routines, if required. | 
reader task, which will be } 
attached as result of the receive 3B POST SePC 
completion. | ; | 4 SRL 
The post bit in the ECB is reset | SELB | 





ee: 
Ce pean 
Sakamaameaad 





362 VSE/POWER PLM Part 3 


Licensed Material - Property of IBM 


IPWSSSS ~- Terminate SNA processing 




















IyPor PROCESS OUTPUT 
Sb: 
eee >From Mainline 
R15 ! 4) 
i Ley ESTs FT, Late If the DOS/VSE subtask was not fooe’> 03 
| attached saccesstull? or when VTA 7103 J i 
cancelled, then: 
| Su CB 
Reactivate the subtask with the request [777 SNST=97°R 
SNCB to detach. 1 
; earn sytc t 
| i A. Wait for subtask posting | { i | 
- — P SRPLEA 
t 3 Deactivate RECEIVE ANY RPL. te | 
: | > { RPLACTIV } 
cil | | 7 : ~ : foul Pree up staorage area's 
oo 8. S J 
| to: te----> A. Release LOGON WACB, SUCB, LUCB if | | 
2 3 | existing. 
i--; -------- B. Release LECB*s if existing. | | 
| anne, C. Release COCB*s and COMPACTION TABLE } i 
| Storage if existing. | | 
| Present &SG 1¥05I to central operator. | | 
| fost Set address of SNA Manager task to zero. 
A. Detach SNA-Sanager 
[o7} 
i 
Exit, return to Mainlineeee i 
ys 
| : | 
eT | 


{ MODULE | LABEL | REP NOTES | MODULE } LABEL | REP 
| TERA | 


$GAA 


Post 
ZA , SuFC 
S 1WO5I RJB,SHA TERMINATED. 
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IPWSSSN - SCAN 
INPpurT 
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OUTPUT 


If reguest for ou processor and 
IPWSSLA not already active; 

- Set reqeest for IPWS$SLH off. 

- Set IP#$$LH processing on. 

- Attach logon tasks: 





ATTH 
Attach VSE/POWER task 
SN~1 





taken: 





A. If session is to be terminated: 


df czeen x 


co 





KILLS ESS 


Terminate and ivadual 
session 


20 
pater each SUCB/LUCB for any action to 
Su-13.0 | 





B. If attach of logon processor 2 is 
requested: 


weeceas s 


——/ 


ATTH 


Attach VSE/PORER task 
SH-12.0 





C. If reader task to be started 
(LURR=OFF) then: 
oH scewcs > SRDR 
cs 


start reader task 
SH-9.0 





De If signal received for this logical 
unit and if an outbound processor is 
active on this session, post ECB on 
OUTBOURD—PROCESSOR to allow him to 
process the signal-request, in case 
it is on its way to a s-walt. 


E. Attach logoff task, if applicable: 

= Indicate LOGOFF in process. 
Attach LOGOPP processor 
(IPWSSLF) - 





< eeccce > 
rc 


ATTH 


Attach VSE/POWER task 
S¥-12.0] 
ne | 


F. If messages pending (SUMB not equal 
0) then = 


Cccaeess 
em ) 


SASG 


Start message task 
SB-10.0 





| 

| 
r 
| 
I 


Ge Start writer task, if applacable: 
Reset device select indicator. 
Call appropriate subroutine 


e swtase > 


——/ 


SwRIT 


start writer task 
SR-11.0 





H. If not all SUCBs are processed [eee > O2A 
then : i, /j—— 





Exit, return to Callerees| 


5 


et 
ae 
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IPWSSSN - SCAN 
NOTES } MODULE | LABEL { REP NOTES | MODULE { LABEL | REF 


Scan the SUCK/LUCB chain to check ISCAW 
whether an action is to be taken 

for any of the Log ical units or 

devices that are logged on. 








2G Queue management selects a 1 
printer in the device list, if 
print output is available. To 
select a specific printer, it 
gust meet following criteria ; 








i I t t | 
1 IPWSSLH Loops through the LRCBs. 1 ~ pranter sust be Started | | 
When 1 LRUB is processed, IPWSSLH SOHS = ON} Il | 
scans for the next one. Only when - printer must be available 
all LRUBs are processes SW is (SUHU_ = OW} 
set off. Now SRA-MANAGER can - and classes of output and 
attach IPW$$L4 again upon reguest. I printer spust match. 
| 2 Each LUCB is checked if work has \ | 
to be done. If the select byte is Face queue managegjent sets 
on, the LUCB 1a analyzed for Ollowing indicators : 
detailed information. If tne LUCB | \ - device not available 
select byte is not set, the LUCB (SUHU = OFF 
| diy9Ba*Sdaradacte Next bree oF | | [| = SeiBet asyace”dnafcato.” °™ 
° a ° =. 
SUDLS = *S® 
| | - lect device indicator 
| | (SUDLS = * *). t 


a nen 
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IPw$$Su - start reader task (SRDB} 











InPur PROCESS OUTPUT 
LUCB aaacamumama 
sles. 

LUCD — sweeten “\ syeee >From Caller 

Lup Laine : : ‘| 

ei : i----->}01] If *REQUEST INTERRUPT INBOUND FOR [ose > 
\coat : 1 INBOUND® set or if *INBOUND / 
—_—_——_—_-— : POST EEDED FOR InBOUND® set or If 

| Luar S tehaienienenemnanel pete LOGOFF already in progress then : 

LULT : 

jue | 3 If a 2nd inbound processor has be to 

\ros2 |  neieteaiacieneeeed Seemeuaemnd attached: 

{Com j LS nee en seer A- Reset t flags 


EOUES? START RBADER*. 
Re t *REQUEST INTERRUPT INBOUND 
FOR Ia BOUND* 


- Set reader 2 porkspece address 
from SUCB into LUCB. 


B. copy RPL from %st reader WACB to Znd 
reader WACB. 


Cc. Attach 2nd INBOUND processor. 
f/\-——. 
< eevcee >for 
is oe VSE/POWER east 

-12.0 
D. fore > 
‘| 
eee > 





etd 


POIRIER IRIS IE 


~---->[03] If the VIAN CID is invalad, or 
ah logoff in process / 


PYUXCU PIPES ISISIEIRIS IE SII) 


cre 


[o4} Attach reader task (inbound processor), 
1f applacable 


ah. a= Bigaipoctet task can not to attached, 
request start reader to process 
RECELY ANY later. 


f/—-—". 
< evccee > ATTH 
——/ 


Attach VSE/POWER eaet 0 





RACB 


Ea —— acs 
| 


—---->}05] Issue the VIA RECEIVE macro to accept 


input from the logical unit. 
| A. If error occurred: 





is 
: j 
: is Infora operator via message > 
SRPLRA : 4V03I { 
3 i Set stop SNA andicator. > 
a | an a a 3 = Indicate termination type. fy 
| 3 = Post the S#A work ECB. 
TCB : 
: 06 
Se a oe oe | 
_- 
Bxit, return to Caller = 
e 
e 
-f 
| v 
i 


i 
| 






















= xx, yy SENSE = sss. 


in the RPL) and the CID in the 
LUCB (set) after OPNDST) do not 
match or logoff is already a 
progress for this session 

recéive request is ignored aaa a 
hew receive any is issued. 


NOTES | MODULE { LABEL j REF NOTES {| MODULE | LABEL {| KEP 
Start the reader task_to accept SROR i conditi i 
input from the iogical unit. F . rorest iad rhea wei | | 
: - logon Eoaplete 
2 A. 2nd inbound processor ha_to be - 
preached oe LUER < Fn banat - ho Q,uescaye processor present | | t 
or received a - 
reguest to suspend for inbound and xa states siecle Bieta | { 
anforrmed tne SNA manager of this 
condition. 5 RECEIVE ' 
3 If the CED*s of the terminal (set 5a aaa ERROR ON RECEIVE RINCD, $GAK | 
t 
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IPWSSSN - Start message processor (S4SG) 
INPUT PROCESS ouTPuT 


; 


Caller 


If a message processor 1s already [eos “>[o5 | 
acess for’ this workstation (SUMRA = / 


If at babes *SUSPSND OUTBOUND FOR 
OUTBOUND SESSAGE® was issued (SUMRI = 


Bal 
A. address suspended outbound eee > 
session e oo 





} 
ee 
LUCB 3 . F 
| 3 If session can be used for 
LUS2 Sear as message processing 
LUPI ween neni B. Reset indications and try it [ece” [os | 
ler | Pe eee ae again later. u/ 


Scan thru LUCH#-chain for the workstation 
and save address of: 


~ A free session. 
- A leh eaaent | outbound session. 
= “wait outbound session. 


A. It no free session found, but a 
running or Souerelng outbound 
procesSor task was found: 


— REQUEST OUTSOUND TO SUSPEND POk 
MESSAGE OUTBOUND® 


fou} If a session is free and can be used: 
- Indicate message processor 
is active on workstation. 
- Attach gessage processor. 


ATTH 


Attach VSE/POWER task 
ae SN-12.0 





Bxit, return to Callereee 








| BODOLE { LABEL | REF WOTES : | AODULE | LABEL 


Start Message Routine SHSG If neither a free session nor a 

5 waiting not a processing 

1 The "SCAN*— Routine checked the outbouad processor is found, 
SUsm - field in the SU0CB for the the message request can not be 
huaber of messages queued. If the processed at the aoment. 
contents of SUA is greater zero, 
that means reget ta are queued, | 
SCAN calls the SS&SG routine. | 


2 If an outbound processor was 
Foy uosted to suspend, and he has 
indicated that he did so, this 
LUCB is used for processing the 
outbound messages. 


3a In case no free session can ne 
found, an outbound processor is 
requested to suspend and this 
seSsion will pe used to peocess 
the message. If however the 
outpound processor is already 
ah *S*-wait state, whach reans 
he waits for a SEfuP/GO, thas 
processor is made dispatchable 
with the request suspend 
indication Set. This avoids, 
that a 2nd outbound processor 
becomes inactive. 


: 
| 
| 
: 


ee ea En te Ce TSE EE CE ERNE 


— 
— 
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IPWS$$Su - SWRIT 
INPUT 





device entry <-----4 
won re-------, eee From 
| Rents, eRe ea 
3 soe 01 






Oe ee Fee ee ee mh 


eoecetes 


---+-> 


Pree oe ve ee oces eee: 





1 
' 
y 
) 
1 
lem \/arewen Vereen 


pee etee 


a een 


05 


[29] 





ROTES 
Start Writer Task 


1 all devices are checked one after 
each other, in case action was 
indicated in several devices 
before SNA manager gets control. 


The output available flag must be 
set, the device entry suSt define 
a list OF paack entry coud the 
device au be starte 


| 
| 2 Output is avaalable, or LST/PUNCH 
| was started for a workstation 





(REAOTE-ID), where according to 
the received bind-parageter no 
docuraent or card data outbound 1s 
allowed for all sessions. 
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Output 





*SCAN® rout ine 


Locate 11 anch device list eatr for 
which a wri er task has to be tled 


A. If none is found: 


If list or pance outbound is not allowed 
for the workstation, inform reaote 
operator via message 1V33I 


Scan thru LUCBs for the NOEK FEAL ioe 
until free session found, or end 
Chain reached. 


A. If end of chain 
- Set select in 





eached: 
acator. 





Device entry 
SUXIXL 





eocee various pointers and attach writer 
= Chain LUCB to device ite f —— 





+t 


= Chain device entry to LUC 


of sccace’s 


—_——/ 


LUCB 








ATTH 





Attach YSB/POWER task 
Su-12-0 





Go to next device entry. 


Exit, return to Callereee] 
pe 


Rimes Reema 6m toe, tamer canroemeee \/ an 


Ne 


LABEL {| WEP 


13GAB 


NOTES t BSODULE 


1V¥33I REMOTE = xxx OUTPUT FOR | 


} BEF t 
NONWRITER WORK STATION. 


SURIT 


No free session is found t 
rant or punch. He couTPUT 
VAILABL. regains on, so when 
the SHA-manager gets coatrol 
ain, it will scan for a free 
Next geen wili 


Si0B again. 
take place when e.g. 
Broce-net detaches and posts 

A-manager. 
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IPWS$SSH — Attach VSE/POSER task 
Inport 


ATTHLST 








LUCB 3 | 
LURI SRE Seemed re Dl fost 
LUTT en oe By 7 


. ° 
. 


i---—3-----3] 04 





t——---> 


ic 


COA CO EE ES ET ES 


ee I EE GS A SE EE A EN ST HO ORE 
ry 
ov eee oncom 


NOTES 


Attach a task control block to the 
TCB chain as indicated in the SNA 
unit control block. 





PROCESS 


} MODULE | LABZL 


OUTPUT 





Caller 


cquare storage for new task control 

Bidex (TCB 

- Set the TCB address 
logical unat control block. 


in the 


I 
- storage dascriptor 
- Task identifier 


nitialize the TCB with : epic eeeis f Nes: 
Rerote ID 





Save area addr 
zeal unit Control block address.~ 


set empty class list 




































set workspace address in TCB, 1f one has > rCal 
to be set a § 
' ; TCcrt 
Attach new task (1 rccu 
| {'-—-—-} [gear 
Set termination code in the TCB. { { | I ' Try a | 
! 1 TCRD 
| LT tty! $ [eeu 
t I tt 
> TccT 
Bxit, return to calling routinesee ( ' 
e > TCWA 
re PS 4 I 
-/ | => | rere 





{ REF NOTES | SODULE | LABEL 


4 


fATTH | 





Chart SN 


| REF 


/3RSw 
S$aTT 
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IPWS$$SN - Terminate individual session 





















































InPOT PROCESS OUTPUT 
[2h | 
chee Prom Calling Routine ace 

LUCB i, C 

LUTT Sant eee tee, 01] Reset the "KILL SESSION® indicator and a > LUSS 
—_——_———| | 7 set termination type. Se ae a fee ee { 

LUTX | eotersre ror =< > LUTT | 

LUMT Sanne anes : {02} Unless imaediate termination is 4 | LUSL | 

| t 7 : [a] --3 reuested, present ASG 1¥141 or 1V10I to poses 
LULT: op eras arers es ts | the remote operator according to the SNA 
| { 2:68 | tergination indicator. { 
LUOI ; { ss 
LuRT Po ress-- > Propagate termination type to all tasks —| a 
oa | i z a4 assbc sated with the fogttal ubit as. 
LUOoO arent ena : 
LUIS : ot If immediate termination is requested, = 
$ activate any suspended task and all oe 
| LUTI | 3 tasks which are *S*-bound: 
: -----> A. Make message task dispatchable, if = iz - 

TCB 4 | applicable | TCROEL 
| TCTT } B. Check status of each active outbound 
3 mma) task: { 


Beeoag® or outbound If *S*-pound(*S*® wait), post task 
as 

If outbound processor vas suspended 
due to inbound task but inbound task 


does not exist, dispatch task 
{ TCSP | motets recs a 
| 


If outbound task was suspended due { 
t 


i] 
i} 
Vv 
[=] 
ee ee rene os oe tt eee orm 
1 


to message task, but message task 
does not exist, set outboundtask 
dispatchable- 


C. If inbound task was suspended due to 
anterrupting inbound tas t 


14 U 
interrupting task does not exist, 
set inbound task dispatchable. 


05, Set select byte in LUCB. 
uu 


Exit, return to Caller ee 


eer ener merit are rg Aerts ADA ED A PENT ASCE EAE RO ST A SALTER A ST TT EE EE RR SOE STIS SAS 


S0 rte Goer OO Gp TEN ENS NE TE RRS SATE CN 
3] 
a 














| NOTES | NODULE {| LABEL j| REF } NOTES | MODULE | LABEZL {| REF 
The terminate session routine is KILLSESS 3 = -f1 
fae peruse *RLTL indteeeen® eynes | sean thre ott re won So prosene, | | { 
agregadas peta se | | set the termination type into it. i 
: 4 If the message proce 
f 2 eeieke RJE,SNA IS IN SHUTDOWN } | SGAS outbound processor are Waiting: for | 
BENaT eaoeion x6 Ga SURES operator intervention or a { ‘ 
ae Q aN 1 } processor was suspended for i 
. t another processor, and the second t | 
I | rocessor is not is attached, the { 
i t ask is set dispatchable. | 
| I ! 
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IPWSSSN ~ KILLS#A 
IsPoT PROCESS OUTPUT 






MAIN processing 












Reset °REQUBST KILL SNA®*® indicator. 


TCB | 
Trcrr Pt rr 2| Tell operator tnat RJE,SNA is in 
I t shutd % 


Own via message 1¥101, if not 
already done once. 




























| 
| j : 
t SNCB | | i TCp i 
i SNPS | aoe termination type into S¥A-manager | RES | 
| SNTT | fo ee : i | t 
SNWS 000 fo tenn Scan through all LUCB*s and propagate 
i. | 3 : tera inat ion code: ah tt | | LUca | 
L>SUCB ! 2 : A. Set termination type in LUCB. > { LUTT i 
SUPL : : B. Terminate individual session: {| 
: : s— 
>LUCB 3 : < alesheed KILLSESS 
[Lory 1 ea : z : : Su-13.0| { 
en 4 ¢ CN 1 
LUTT f aca : : {| 
LUNX | --------- i--J i----->[ 05] Propagate termination code into logon es | 
| z i LUCB, if one exasts 
2 | | 
Exit, return to Main processingeee} | 
si 
\ v/ 
| t t 
eel ee ee } | | 
a 
LABEL ReF 
NOTES | MODULE | LABEL | REP NOTES sides rat 
: : U Cid 
The *kill SNA*® routine is entered KILLSHA | 2 ae RJZ,SWA IS IN SHUTDO 
ehepseee sth nanegae,riadt os, aon, ¢12, eas | 
regues 200 at i formed on a L s 
set in the SWCB. This flag is set mad Rha type Of vermunaticnts sot 
in RJ&,SNA subtask when the in each LUCB- Then the *KILL | 
suptask was posted to perfora | | session* routine is called for 
quiesce. each LUCB pesent to initialize 
| shutdown processing for the 
session. 
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IPWSSSN - RJE,SNA subtask 
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INPUT PROCESS OUT PUT 
2 | 
eta, 
eee >From DOS/VSE Tasking | l 
SNCB eae } 
S eheetestentesteneeenenenhenel we para > f01} Initialize ACB with ; Soak a 
| 3 - Exit List. 
oe ee “’ 2 - Password. | 
| $ opens eee fo2} Open ACB | 
SEIL ' i? : | 
 - wemnne fee te? A. If the ace was not cpanad : eee > 
aa fa} -- successfully, set stop code into / 
7 4 ; TCB of SNA manager 
RNCB s $ 3 
[ RMAL ] ------2--2-——~-3 fo3} Issue_*SETLOGON START*® request to YTAH 
——________—_4 | es [s]-- to allow logical uaits to log on to 
ney 3) 68 | VSE/POWER. 
| 2: If the setlogon request was not . 
{ TCcTT | s 8 H successfully, set Stop code *S® into 
ns KD PALS OS TCB of SNA Banager 
R15 z 
3.63 Post SNA manager and make VSE/POWER 
=e a ic Roce yak sphager, shi sakecran/2 
SRPLST 2: 
SST | } =: 3s Wait for reactivation by SNA manager 
-->[B]: = 
2: [os] Determine reason for reactivation of 
3. subtask. 
i--}-------—--- A. If request to detacn subtask [ooe" 
3 | then : = 
i-—-~------ foe] Otherwise issue *SETLOGON QUIESCE® [feee™ 
| request to VTAM to stop logon —,/ 
oes by po if not already dM@e once. 
ja] --> - nd icate QUIESC# issued. 
fo7t Close ACB, if applicable < 
| Soe 
foal} Detach subtask. 
— | 
To DOS/VSE Task Selection.eece 
e 
ai 
-/ 
v 
NOTES | MODULE } LABEL { REF NOTES 4 MODULE { LABEL 4 
The DOS/VSE subtask is attached in 1 A branch 1s aade to the IPHWSSVE _ SUBTASK 
the INIT routine, and is executed routine in order to getup the exit 
to open the VTAM ACB and to issue last for the ¥WIAB exits 
a S&TLOGON START neqeere to allow 
LOGON cequests to VSE/POGER. 2 OPENR 
As VTA@ does some of its 
processing under the PIB of the 3 S2ZT LOGON i 
Pegdest, page fasits in VPs have rf wart { 
que page faults in ave 1 
Sone effect’ on the performance of 6 This piece 9f goding forms aa i S£TLOGOR 
. anf inite wai oop which is on 
To minimize this effect on the | terminated when Sha processing i. 
ma in pants ane DOS/VSE subtask to be terminated. 
w used. 
The subtask waits, after execution | | 7 CLOSER { 
of the SETLOGON SfaRT, for 8 DETACH 
reactivation by the aaintask to 
disable LOGON cegueee and to close 
the ACB, when RJE, SNA processing t 
is terminating. | | } | 
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wee ewe ew eee we 


Se en ee ee am ee tee te ey ett ttre ste wrens eee tomer we—, 


SEND RECBIVE SEND-EXIT RECEIVE-EXIT 
SR-2.0 SE-3.0 SE~4 .0 


re ee we ee we ee ee ee ee ee 


eee 


SE-5.0 
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IPd$$SR - Mainline 
INPUT PROCESS ouTPUT 





fete 

° ° 

[tee Called from either PNET Driver or 
/yskts Routine 


IPWSIOM 
Ptr to NCB 








—>for} Entry-Point for SEND-Punction. 


5 


A alaccs ’> SEND-MNGR 
c—s/ [2 al 
SR-2.0 


ketura to caller.eee 
=; 
ee 
IPWSIOM 


[ptr to NCB 





>[oz} Entry-Point for RECELVE-Function. 








4-5. 
< eeecee > RECEIVE 
SR-3.0 
Return to caller.eee 
e 
yie 
*y/ 


e 
e . 
[Est tecneantea by ACF/VTAK. 


SEND-RXIT scheduled by ACP/VTAM if the 
SEND Operation coapletes 


f——. 
< abode SEND-BXIT 
SR-4.0 
Return to sees 


+’ 


ok. 


eee >Scheduled by ACF/VTAS. 
—,/ 


RECEIVE-EXIT scheduled by aceceran if 


RD II I OO SEI A I CE EE A SEINE CECE CESIM SSO Se FUSS SE-SY SY-AY A TT RIGS EM EY SESE Etta 


a RE eT net lr SR EE NE A CS A TE 





the RECEIVE Operation co etes. 
/—_——'. 
< pata RECBIVE-EXIT 
$k-5.0 


Return to ACP/VTAHeee 
| 


7; 





NOTES | NODULE {| LABEL | REP f NOTES { MODULE { LABEL { REF t 


SEND Punction: Dequeues a buffe 








The SEND- , RECKIVE Punction 
Routines and the SEND-, RSCEIVZ 


from the TO-BE-SEST AHBAD syoene. if 
at least one buffer is rea 

send, and executes a SEND th send 
a ° 


EXIT routines are executed by this 
| RECEIVE Punction: Taxes the ist 


aodule. 


Tne load address of the module: 
IPW$$SR will pe stored in the PNCB 
free buffer froma the RECBIVB AHEAD 
Queue and executes a RECBIVE 


if successfully loaded. 

Tne SEND-, RECEIVE Functions 
Routines fs run under control of 
@ither tne PN£T Draver Task or 
under control of the VSE Subtask 


Operat ion to receive a RU from the 
her end of the session. 


if they were called trom the 
SEND-, HKEC#IVe “&XIT Routines. 
when funn ing under control of the 
EXIT Rous nes. ACR /¥TAE oc VTAME 


SEND-BxIT: Scheduled by, VTAM if 
fhe gRnD Dperatr9n comp. letes 

finally. T Sent is queued 
to the PNET Driver ard Queue 
for further processin 


t 
e@, another $2uB-Gperat ion 


e puffer 
nave scheduled the If if the 
I/O- Operation of case SEPUZPECEIYS 


Ossib 
have peen completed final ati e 


us started by calling t 
SEND-FPunct ion. 


RECHIVE-BXIT: Scheduled by VTAa if 
the RECEIVE Operation coapletes 
finally. The buffer received is 
dueue. to the PRET Draver Buffer 


Function Routines is established 
via the Linkage Function Macro: 
IPWSIOM. 

Linkage from PNET Driver: 


IPWSLOM uCBe fre } ,TYPE=SEND 
(BAL RE, 16 (RP) 


IPW$IOM BCBS fre ) ,TYPE=RECEIVE 
(BAL RE, 20 (RP) 


Linkage from Exit-goutines: 


IPW$IOM NCB } »-TYPE=SENDX 
(BAL RE, 24 RF 


IPWSIOn erat ) , TYPE=RECEIV EX 
(BAL RE, 28 RF) 


ueue for processing. If a free 
uffer is available another 
RECEIVE Operation is_ started by 
calling the RECEIVE-Punction. 







Lankage to the SEND-, RECEIVE 
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IPWS$$SR - SEND function 
INPUT PROCESS OUTPUT 





e 
.6->8CB kL, 
aia eee >Called by Line-Driver. 
NCBSGTE 


“| 


' If SEWD-Operation in progress. 














View nena: 








A. Set Return-Code *SEND IN PROGRESS® 
(S2NDIPR) in Register 0. 


Return to PNET Driver via Reg. 14002] 


pet 


Reg.0 
RC=x "PF®* 


keg.15 
ZERO 


eed 


keg .6->NC3 fo2} Save Callers Register. 


[not zero I 






wr 
v marr 
[Ebe-t. 
oe /Zcalled by SEND~EXIT. 


A. Set Return Code (Reg.135) to zero. 





NCBRPFCS 


| Lres.ros_] 


Reg -.1-> 


. fa (8CBOTBSX) | 


Yo err enna 








| 


Ss Po2rnt Beg ister 1 to 1.st in Queve 
ee ae (SCBOTBSX) . 


sae A. If TO-BE-SENT-AHZAD~—Queue is ped 
empty. / 


If RESPONSEB-UNIT to be processed or [ooo > 
buffer belonging to PNET Driver, it / 
cannot be suSpened. 

BUF 


rcs 
PCS, FCS 
BUPNEXT 


fa (BUF) /zero) 


Process suspend option for transmitter 
buffers only. 


A. If Stream is eee suspended [r--73 [07 ] 


B. Get next buffer fros 
TO-BE-SENT-AHEAD-Queue, point Reg.1 
to next in chain 


Cc. if eve is not empt check eee > 
Pe dts Pty. [e=-" 


Handle Nothing to Send Condition. 


Reg.1-> 


A (BUPNEXT) 


AY ere reer reer enn orca 








Reg .4->BUP 
[poranoi=o¥ ]||—— 


' Reg-6->NCB 





NG rr cere NN rare 





A. Reset *SEND If PROGRESS* Gate. 
B. Indicate *SEND-Request® for LDR. 




















NCBACT2 
NCBS END=O8 

NCBOBUF 
A (BUPF ER) 


NCBOBTLX 


Tail-Ptr 








_ a 
— 

| 

| 

a i 


Go to routine exit. Next page [eee 13 






Reg-1-> 


A (HCBOTBSE ~ 07} Dequeue buffer from TO-BE-SENT-AHBAD eae 
7 : : as uaue and store Address in Current = ee 
A (BUPNEXT) 





- 
Vv nv 












utput. 





v. 





SEWD Processing continued on next page. 





NOTES { MODULE | LABEL | REF NOTES {| MODULE {| LABEL | 

1 On entry to this routine, a test 5 The received FCS Sytes aes oeres) | 
is perforred to guaranty are compared with the FCS of the 
serialization of SEND Operations. task to find out whether the 
A £yeld in the NCB (NCBSGTE) 1s streaa is suspended or note A 
used to prevent gore than one SEND streak is not suspended if the 
Operation in a session. correspond FCS Bit in NCBRPCS 
Note; The Function is called is OFF, the PNET Draver or a 
either from the PNET Driver or the Receiver is owner of the buffer. 
SEND~Exit- If NCBSGTE Contains all If the RU is suspended, the next 
ones, a SEND is already in buffer in the TO-BE-SEAT 
progress and no new SEND is AHEAD-Queue is accessed Dy __ 
allowed. In this case, an anternal pozat 189 Bogister 4 to the field 
Return Code is set is Bey ister 0 OUPNEXT of e buffer currently 
(X*FF® = SEND IN PROGRESS) and held by Reg.4. 
control is given back immediately If the Quewe is not empty, testing 
to the Caller w/o fgrth rT actions. for Response Unit and suspended 
Notes TREO’. ti pee of indications buffer is repeated (Step and 5}. 
can be set in buffer header : Note : PHET does not suspend | 
hone, indicating noreal streams itself but handles 
(transmitter) RU, BUPRRPL, | suspending of streasas by remote 
indicating a response unit is to node. 

be sent, Or BUFTERM, indicating . ; 

that a $NA RSHUT command is to be 6 if either the Queue is empty or 

sent. The last two types can be all buffers are su aded, 

placed onto queue by PNET Driver The *SEHD IW PROGRESS is reset to 

only. ae to free the SEND-Punctioa 
or reuse. 

& The status byte of the Buffer The NCB is flagged £0. 7po seats a 
BUFSTAT) is tested for a : SEND-Request, #hich w be used 
ESPOWSE-UNIT (BUPRRPL = OW) which by the PRET river. 

Cannot be suspended and will be Control is given to the end of the 
| sent immediately. } | Send Function. | 
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IPwW$SSR - SEND contd 
INPUT 





Reg .2->SSCB 


SEND-RPL 
RECEIVE-BPL } 


| 


waka ' 


os 





Reg .4-> BUF 
BUFRPL 


ages een 


| SEND-RPL } 





Reg .2->SSCB 
SSCBYSAS 





vi 





Reg.15 


fact zero } 


Reg -6~>NCB | 


ia 


me 


ee | 














uCSOBUP 


| [a (butter) } 


womens { 
( 


|| 


Reg.13-> 





SSCBR13S 
a (Function 
Save-Area) 
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PROCESS 


| $-——--—3 fog} Copy SEND-RPL from SSCB in Buffer. 


A. 


Execute SEND Operation. 


A. 


Ce 


De. 
Be 


fro] Reload Register 13 from SSCB to point it 
again to 


[13] If any error detected (Beg.15 += zero) 


Ae 


Load Callers Register, except 0 and 
because they contain £ 

either the initial completion, or a 
Queue Condition. 


{13} Return to Caller via Register 14. 


Licensed Material - Property of IBM 


QuTrPuT ; 


Reg.4—>BUP 


Header 
fod ify yoquared fields in RPL with ——— 
values derived froa buffer Data 


(Area, Length) . 


Vir emnemen: 






BUFPRPL 


AKBA 
LENGTH 


Reg.2->SSCB 
SSCBR 13S 








=H 


4 





Load address of RPL, located in the 
Buffer, in Reg. 1 








Save Register 13, which contains the ~_>} [A (Function 
Pet is the Callers Save Area, in Save-Area) 
e . 


ae EE EEEIEEEIREIEEEnenmEeananememseal 


neg.13 
A (SSCBYSAS) 





Point Reg.13 to Sead Save Area in 
SSCB, used for VTAM Linkage 
Conventions. 

Issue *SEND* Sacro to ACP/VTAA. 


Control is returned fros ACES SEAS 


[a (sscorsasy | 


| 
| 


re a re 


API after initial completion, | 
because of asynchronous Processing. 





A (SSCBYSAS) 


he callers Save Area- 


Remove Output Buffer from CURRENT 
Output (sCBOBUP) a ueve it to 
PNET Driver Buffer Queue. (LIFO)} 


Reset Current Output Pointer to 
Zeros 


Reset *SSHD IN PROGRESS® Gate. 


15 
he Return-Code of 


a TE CR TE TET IT AI GY NTH Ca 


EXITeee 


td 
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IPWSSSR - SEND cont*d 
NOTES 


8 The Fequired fields (AREA and 
AREALER) ot the RPL are updated 
with the values derived from the 
buffer header. 


9 Register 0 is loaded with the 
aaerere of the next buffer in 


fhe'p puffer is now degueued from 
a TO-BE-SENT AHEAD-Queue by 
ing Compare and Swap Instruction 
te515 The. buffer address is stored 
he field NCBCBFO to aake it to 
Current Output. 





MODULE | LABEL | REF 


10 Before the SEND is executed, is is 
required to potae Register {3 toa 
Save Area being used by VIAM to 


Eherergre 13 has to be 
saved fis ie] * SSCBR 13S to 
Tevent “Lhe “callers Save Area 
ddress to be lost. #egister 13 1s 
than loaded with the address of 
bee pone Save Area located in the 


Register 1 is loaded with the 

ress of actual SEND-RPL located 
th the Buffer. 

The S8ND Sacro 1S executed to pass 
the puffer to the VTAS-API. 


SEND RPL=(R1) 


Wote; 

The final completion of the SEND 
will trigger the SEND-EXIT, which 
is under Control of the VS 

subtask under which the VIA OPEN 

was performed. 


j 
save the caters cede ele 





10 


1 








NOTES 


On return from VTAM, Initial 
Completion of API the address of 
the Callers Save Area is loaded 
from the SSCB in Register 13. 


The eeturnocoae already set by 
the API is ecked for a zero 
value. If goristee 15 is zero 
VFAR has accepted the SEND and 


continous the Pr 
Note: oSEED Iu PROGRESS * gust not 
be reset until the oe completes 
finally (see SEND- as 
If any error vas dete ed (Reg.15 
not zero), 
the Current ebpiter is rergjoved from 
the Output Buffer Poiznter and as 
neued to the PNET Driver Buffer 
neo, for ieee | Bh page 
CBOBUF is ch on QO zero. 
The "SEND PROGRESS * Gate is 
reset to 17008 to allow reuse of i 


the SEWD-Function, if required. 


The Callers Register 14, 1 to 9 
are reloaded 
Reg ister 


Control is 
Caller's NS. 


from the eaye Aton, 
3 is pointing t 


iven back to the 
via Register 14. 
15 contain a 


Note: Register 0 an 
Return Code. 





SODULE 





| LAbEL 





| 
| 
| 
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IPWSSSR ~ RECEIVE 
INPUT 


Reg -6->NCB 
NCBRGTE 


[reooe/xerPs] 


oerceececmmmmeee (1) 








Reg .6~>sCB 





NCBIPREX 


oo * 


A (suffer) 

Or 

ZERO | 
Reg -6->8CB | 


[ei 


}93 | 
o4 
t_Reg.2->SSCB | 
—— 
Z 
t 








SEND-RPL 
RECEIVE-RPL 


uu —....- 2 





NOTES 


1 On entry tO this routine, a test 
is performed to guarant 
serialization of RECELV . 
Operations- A common field in the 
NCB Lie det § is used to prevent 
cocurrenat RECEIVE Operations in a | 





session. ; x 
Note: The Punction is called 
either from the PNET Driver or the 
RECEIVE-Exit. . 
If NCBRGTE contains all ones, a 
RECV Gperation is already in 
progress and no new RECV is 
allowed. In this case, an anternal 
Return Code is set in keg-O (X*PF® 
= RECEIVE IN PROG ESS): and control 
is_gaven back immediately tu the 
Caller w/o further actions. 


The Callers Register's 14 to ¥ are 
saved in the Function Save Area 
Register 13 is pointing to. This 
implies that the cailer is 
responsible to have a 12 word Save 
Area available when calling. In 
addition, the Jase address in 
Register 15 is loaded in Register 


The Return Code is set to zero 
(Reg.15 = zero). 
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PROCESS 





Called by Line-Driver. 





{ BODULE | LABEL 
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OUTPUT 





If RECBIVE-Operation in progress. 





Reg.0 


RC=X *PF® 


Set Return-Code "RECEIVE IN } 
PROGRESS® (RECVIPR) in Regaster 0. | 


Return to PNET Draver via i aoe 


Ae 





= 
Q 
i 
Q 
sacl 
& 





NY en a een emer ere \mmemermmene \/. 








-/ 
v 
[: 
e e 
© >Called by RECEIVE-EXIT. 
ately 7 aeg.13-> 
Save Callers Register 14 to 9 into save Reg. 14-9 
area, Reg.13 is pointing to. 
A. Reset Return Code, Register 15 to | keg.35 
| ae 


& 





\Veren omen pacman: \/amenmemnon 


A (Buffer) 


Dequeue Ist or only Buffer from RECEIVE 
AHBAD Queue and store address to Current 
Input Pointer. 





Reg -4—>BUF 





Initialize various buffer fields, reset 


thea to zero. 


A aedh dempatnmetanenemeneenmmemmmmmenaed 








i 
g-6—>NCB 





SC PETE TTS LSI TE CR ETE ST EAI PAS 


Copy RECEIVE-RPL from SSCB in Buffer. 








Modify required fields in RPL with 
yalacs det ived from buffer header. 


Function continued on next page. 


| REP WOTES 





{ SODULE | LABEL | REP 


4% The warious fields in the Buffer: 
BOPNEXT, BUFDATL, BUFSTAT, and 
FEST1 


6 It is required to update the RPL 
with the address of the Data Area 
and the Length of the Area wath 
values derived from Buffer Header. 


Le eeearh cela cake salematapdhdamheceemenenihemdnettnettieath 


| BU | 
are initialized vith zero values. 

| 

| 
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IPWS$$SR - RECEIVE cont'd 
INPUT 


a 


PROCESS 


Reg .4—>BUP 


[BUFRPL } 
[Recerve-ReL] | 


Ae 


{es 


Bea 


Reg -2->SSCB 





SSCBVSAR 


{For VTAS Cc. 


A 


SSCBR 13S | 








NCBIBUP 
{ A (Buffer) { 
ee | 


; D. Issue "RECBIVE* HSacro to ACF/VTAM. 
A (Punct ion 
Save~Area) | keg.13 
o_O 
[i- 4 09] Reload Beg i>tat 13 from SSCB to point it A (Function 
| again to the Callers Save Area. " tSave-Area) 
{not zero ] 7 10] If any error detected (Reg.15 -~< zero} 
| ENCE 
Reg -6—>NCB | R11->LDR-TC3 
| Pa maaeT | 


A. 


ee ES ST SR SN I pO SE Ra OC EE SD NT SO. 


3. 
Cc. 


Reg.13-> 
Reg. 14,1-9 





i ei a a er: | 


Process RECEIVE Operation. 


Load Callers Register 
because they coftain 
either the initial completion, or a 
Queue Condition. 


Return to Caller*s NSI via Register 14. 


OuTPOT 





Reg.2->SSCB 


Load address of RPL, located in the 








Buffer, in Reg. 1. peesen tse | 
Save Register 13, containing the | 7 ri A (Function 
eadrees ioe the Callers Save Area, in t) {Save~-Area) 

e e 


Reg-13 


> JA (SSCBVSAR) 





Point Reg.13 to Receive Save Area in 
SSCB, used for VTAA Linkage 
Convention. 
















anla 
i 
Ls) 
eacueineaaa 


Reaove EApUr Buffer from CURRENT 
Input (NCBIBUF) and queue it to PNET 
Driver Buffer Queue. {LIPO) 


uffer- . 
hain 


FTES ATEANT | 


Reset Current Input Pointer to zero. 
SRECEIVE IN PROGRESS® 


ee 


[ 


ere \y/ ores crmreers momen gemengerctes \y/ cece ewe emer termes mere arr rmen terre Ny eer 


Reset Gate. 


NCBRGTE 


rr erate 


| 


Lo 





except 0 and 15 
fhe Retura-Code of 


Registers 


[14,1-9 | 


ome 
——— 
t 


Exiteee 
. 
e 


/ 


a 


v 











address of the Callers Save Area | 
is reloaded in Register ° 


BOTES 1 MODULE | LABEL jf NOTES | SODULE | LABEL | 
& Before the RECEIVE Macro is {RECEIVE ! 10 The Return-Code, already set by 
executed, the API is cnecked . 
Register 1 is loaded with the If Register 415 is zero, no error 
address of the RPL, located in the was detected from VTAM, the 
Buffer, label BUFRPL. RECEIVE Process continues and 
Register 13, pointsog to the RECEIVE IN PROGRESS rust not be 
Callecs Save Area is saved in the reset until the RECEIVE completes | 
SSCB, label SSCBR13R. ; | finally (see RECEIVE EXIT). | 
Register 13 is than loaded with If Register 15 does not contain 
the address of the VTAM Save Area, zero, it is required to remove the 
located in the SSCS, label current Input Buffer and queue at 
SSCBRSAV, used for VTAM Linkage to the Line Driver Buffer Queue 
Convent ions. for recovery purposes. NCBIBUP is 
: reset to zero after the buffer is 
Execute RECSLVE Macro. ueued to the LDR Buffer Queue. 
. ‘ | | his as required to infora the 
After [Initial Completion of the PNET Driver that no RECEIVE is 
RECELVE by the WVTIAM API , control Reading anymore. 
is given back with keturn Code in he °R GeIvE IN PROGRESS* Common 
Register 15 and Reg. 0. Byte is reset to X*00* to allow | 
reuse of the BECBIVE-Function, it 
¥ote: | . required. 
The final completion of the 
RECZIVE leads to triggering of the 11 The Callers Regaster 14, 1 to 9 
RECEIVE-EXIT, which under are reloaded from the Save Area, 
control of the VSE subtask under Register 13 is pointing to. 
which the VTAM OPEN was performed. 
42 Control is given back to the 
9 After return frum VTAM, the Caller*s WSI via Register 14. | 
t b t | 
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IP#$$SR - SEND-EXIT 





PROCESS OUTPUT 





eee >Scheduled by ACF/VTAM, if SEND 
mea [Operas 208 completes. 




















| 


LF | Ld 
Coo 


Reg.1->RPL | On entry to this routine, Register 1 
3 points Yo the actave RPL.” 
fo2} Load various Addresses. 
USERFLD 
Get address of NCB from the USERPLD 
of the RPL and store it in Register 
Access PCB via SYSCOM and load 
Reg -5->PNCB address in Register 5. 
PNCBTLD . 
A (LDR-TCB) Load address of Line Drive ?FCB frorm 


ae PHCB in Reg. 11. 


D. Lond Aaennes of SSCB from NCB in 





Reg .6->NCB 





ege 
EB. Save VTAM*s Return Address in SSCB. 





NCBSSCB 


Reg -2->SSCB 
SSCBVSAS 


| 






——> fos} Execute CHECK Macro to free the RPL from 
i J the active state. 





A. Point & 13 to Send Save Area in 
CB, us for VTAM Linkage 
Conventions. 


Be Issue *CHECK® Macro to ACP/VTAS API 
















































Reg .6->NCB ae Remove Current Output Buffer and chain 
a! ary ee at to PNET Draver ffer Queue in LIPO 
[ncpopur order. | 
A (Buffer) | t A. Stone buffer to PNET Driver Buffer 
ueue. — 
RCBITC Be Reset Current Output Pointer. 
NCBTTCL=ON/ 
cpr ICroW 
7 => fos} If KCB Termination @ indicates: 
Session £rror Coote ), Reg -6->5CB 
| Central Stop ( we} 
Or VTPAM Abehd (NCBTTCY), 
| A. Reset "SEND in PROGRESS*® Gate. > 
B. Skip SEND-Function. [ese | 
RO and R15 I 
ag == [06] If CHECK-SEND completes with any error, | 
Ae Reset "SEND-IN-PROGRESS® Gate. 
B. Skip SEND-Funct ion. Es, 
for} Call SEND-MGR FPunction. 
SSCBPUSS - Reg.13 
[Save Area } mo $ A. Point Register 13 to SEND-Exit > |Punaction 
Function Save Area. { {Save-Area 
, /—.. 
< ehbeoiys SENDX . 
| SR-2.0 t 
I Re 131->LD-TCA 
TCEB 
Post PNET Driver 8CB, to infora LDR > [Posted I 
Reg «2->SSCB about these Events, by using the VSE 
POST Macro. 
SSCBS 14S 
Return -Addr eas ——=> [09] Reload Return Addres from SSCB. 
| Return to ACP/VTAM via Register 14.000} 
es 
jisk 
+4 
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Pon ~ SEND-EXIT 






NOTES 


The SEND-EXIT is scheduled by 
ACF/VTAM if the current SEND 
Operation completes finally. It 
executes under the VSE Suptask. 


MODULE {| LABEL 


' 
On entry to this pratense peg seeee { 
1 points to the kPL peaks 
contains the entry poin ehdresa, : 

e 


and register 148 t return 
address. 

The ate fea a ah ed an Reg. 15 
is load in Reg.3 


Addressibility is established for 
varios Control blocks 
The address of the NCB is loaded 
from the USERPLD of the RPL in 
mogaeret 6. 
address of the PUWER Partition 

i oaded via SY¥SCOM access and is 
ut in Reg. 

he adiress of the PNCB is der cee 
ace he CAT, label CAPN and put 


the Meda eke S ang PNET Draver TCB 
is loaded in 11 

the PRCB, label Isdcahuy 
the address of the SScB. as loaded 
from the NCB, Label NSCBSSCB an 
Register 2. 
The Register 14, containing the 
Return Address to VTAS is stored 
in the SSCB, label SSCBS14S. 


Before tne CHZCK Macro is 
executed, it is required to point 
Register 13 to a Save Area, used 
for VTAM Linkage Conventions. 

It is now required to free the RPL 
from the current SEND Operation. 
This is done via the CHECK-Macro 
whicn implies also setting of the 
Return- and Peedback Codes. 


The Current Output Buffer 

addressed in NCBOBUF is resoved 

and queued to the PNET Driver 

Buffer Queue TCEQ. | 


nen tres from 


OS ITI AG AE ENTE TY EA AS TIE FT AP 


CHECK 


The NCB Termination Type is 
examined for 

Session z£rror detected 

central stop’ 

entral Stop issued (NCBITCS=ON), 


vran Abend was triggered 
NCBTTCV=0N) - 
Bb these cases, it does not make 
sense to do another Send. 
The SEND-IN-PROGRESS Gate wae reset 


to zero, er aay the PB 
Driver, that no SESD is pending, 
anyagore. 

control 


Driver ECB 


re er re EE Se rr See ae frre nen 


1s passed to post the PNET | 






REF 








a 


If the Return-Codes passed from 
VTAM indicates any error (Register 
15 and 0 contain honzero valies}), 
1t does not make sense to start 
another SEND. 

The SEND-IN-PROGRESS Gate is reset 
to zero, gasicat sey the PRET 
Driver, that no SEND is pending, 
anyarore. 

Control is passed to post the PszT 
Driver ECB. 


Before the SEND-Function is 
called, it is required to point 

Register 13 to an internal Save 
Area, where the SBND-Function will 
save the Registers. 

Eankag? is @stablished to the SEND 
to cfora another SESD via the 
IPWSIOM Macro. 


It is rean uired to post the PNET 
Driver E Be by issuing the ¥SE 
POST-Bacr 

Note: The. Post aapiies posting of 
the PNET Driver 8 

Posting of the vsE/bougR Baster 
ECB, aS well as dispatching of the 
Partition. 


Before rerureang +o to VTAM, the 

Return Address bei saved in the 
SSCB, label SScBSia is loaded in 
Register 14 and control is given 


back to ACPAVTAM via Regaster 14. 











[""wores.  } MODULE | LABEL | REF |{ NOTES | AODULE | LABEL | KEF } 


SENDX $108 


| 
| 
| 


Post 


| 
| 





| 
: 
| 
: 
| 
| 
| 
| 
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IPWSSSR - RECEIVE-EXIT ; 
INPUT PROCESS OUTPUT 





ol 

el, 

ove ree by ACF/VIAMN, if RECEIVE 
/{Operation compietes finally. 

















PNCBTLD Be. Get Address of PRCB via SYSCOK. | Reg .3 








Reg .1->RPL >pOT} On ent to this routine, Register 4 
= | | t points to the active RPL. 
USERPLD | Hi Load various Addresses. iegé 
[Ly = A. Get address of NCB from the USERPLD ee 4 f A (NCB) | 
: of the RPL and store it in Begister 
Reg .5->PNCB 6 




















SSCB, used for VTAM Linkage 


[a (pR-rc5) } > C. Get address of LDR-TCB from PNCB and > ja (LDR-TCB) 
- load it in Reg.1t. | 
Reg -6->NCS me D. Get Address of SSCB from NCB in > Reg.2->SSCB 
eg. 
NCBSSCB al SSCBR 14S 
Be Save VTAM Return Address in SSCB. 
fa (ssca) VTAA Rt 
=>} 03] Execute CHECK Macro to free the RPL fros 
Reg .2->SSCB the active state. 
SSCBVSAR Reg.13 
ae Ae Point Reg.13 to Receive Save Area in =a Ricay 
! rea | 





Conventions. 
Be Issue "CHECK* Macro to ACP/VTAM API 


Reg .6->NCB ee R11->LDR-TCB 
Remove Current inpyt Buffer and chain it 
.USCBIBUP to PNET Driver Buffer Queue (LIFO). 








A(I-bBuffer) Ae Sante Input Buffer to LDR Buffer See | 
SPP Dat aha a pe Ne Peg ueue. 
wCBTtc Be Reset Current Input Pointer. 5d anny SLA 
NCBIITCL=ON/ 
resency=3y” |||} 
= 
If CB Termination Type indicates: 
Session Error (BCBITCL=0N), 
Central Stop é CBTTCS=O8), 
VTAH Abend (NCBTTCV=ON), 
A- Reset "RECEIVE-IN-PROGRESS*® Gate. > 

















B. Skip RECEIVE-Punct ion. [ee* 7[09 ] 








| > 
RO and 815 = 
om SS => foe} If RECEIVE completed with any error, uCBACT2 
: ae >} | RCBRCVR=On 
| | Ae Reset "RECEIVE-IN~PROGRESS® Gate. 
Be Skip RBCEIVE-Punct ion. [eee >[09 
—/ 
a fo7} If the INPUT-ABBAD-Queue is empty, | 


| 


A. Reset *RECEIVE-IN-PROGRESS® Gate. 
B. Indicate *RECBIVE~REQUEST® in NCB. 


C+ Skip RBCZIVE-Punctaon. eee >f09 } 
[ose 2 [09 |] 


Call RECEIVB Function. 
SSCBFUSR 





Daan eneeteneeeremnemeed —_ 
[3] 


Reg.13 
A. Point Register 13 to function save 


“> }Punctaon 
area. ar Save-Area 





















/—. 
< pishiahdel RBCEIVEX 
SR-3.0 81 14->LDE-TCB 
TCEB 
Reg -2->SSCB {os} Post PNET Driver ECS, issue VSE > | Posted | 
POST-Bacro. 
SSCBR 14S 
= ——> f10] Reload Return Address from SSCB in 
Reg.14. 
Return to ACF/VTAS via Register ieee’ 
=; 
Ir 


re ee ee ass | 
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IPw$$SR - RECBIVE-EXIT 
NOTES 


The RECEIVE-EXIT is scheduled pb 

ACF/VTAS if the current RECEIVE 
Operation completes finally. It 
executes under the VSE Subtask. 











1 On entry to thas routine, Register 
1 pointS to the RPL- Register 9 is 
loaded with the Base address, 
derived from Reg.15. 


2 Addressibility is established for 
| varios Control Blocks: 
The address of the NCB ar eootod 
H from the USERFLD of the R 
Register 6-4 
The address of the POWER Partition 
is derived froa the SYSCOM and 
loaded in Register 10. 
The Address of the PNCB is than 
loaded froma the ob label CAPN. 
The Address of the SyET Draver TCB 
is Vested from the PNCB, lapel 
PNCBTLD in Register 11. 
The address of the SSCB is loaded 
frora the ede label NCBSSCB, in 
rete 
The VTA féturn Address, contained 
in Register 14 is saved in the 
SSCB, label SSCBR1I4S. 


3 Before the CHECK Macro is executed 
it is Fegusred to point Register 
13 to a Save Area, used for VTAA 
Linkage Conventions. 
It is now required to sEoe the RPL 
from the current RECEI 
Operation. This is cous via the 
CHECK Macro, which isplies aiso 

| pereang of €he Return and Feeback 


odes. 


4 after return from the CHECK, the 
pece Ava buffer is removed from 
urrent Input Pointer 
WwearBo F) and is chained to the 
ert Driver Buffer Queue (TCEQ) 


5 The NCB pore ination n Type ete ha 
is exanined to whether 
the session hace aireads been 
stopped (NCBTTCS=ON), Or a session 


error was previouse detected 
(NCBTTCL= i or VTAA Abend was 
triggered { E€sTTcv=0N) . In these 
pepeedan 


oes not aake sense to 
rt ee Ee 


sta RECBEIV 

The SRECEIVE IN PROGRESS 

NCBRGTE} pao rs to 
to inftora the BT Oriver 


Indicataon 
zero, 


that no RECEIVE is pending 
anyaore. 





MODULE {| LABEL 


FR ETE TE ERT EIT NY SE Ct EE LD ER PIS RT A PR ES ES PN SS TE SO 

















10 











NOTES 


If the Return ome: of the CHECK 
undicates any err seg egister 15 
not Zero), no RECEIV Operation is 


started. 
The RECEIVE 14 PROGR&SS * 

Ind ication CBRGTEB) is reset to 
zero, to inforgag the PNET Driver 
that no RECEIVE is pending 
anyaore. 


| MODULE | LABEL j HEF 


It is now possible to start 

another Beceive Operation 1s at 

 Helte one: free Input Buffer is 

ava 

If the IBPUT~AHEBAD uence is eupty 

fteaged. {uct the NCBACT2 is. 
cBSRC¥=OM) oe seo acace 

ie 14 equest to he PB 

ri 

The SECEIVE ze nebee ee: 

Ind ication TE) is rome to 

zero, to in pen git pert Driver 

that no RECEIVE is pending 

anyrore. 


| | 

| | 
| } 

Req ister 13 is loaded with the RECEIVEX | $104 

ad ress_of a internal save area, 

which allows the RECBIVE Function 

saving of the callers registers. 

Linkag e is established to ne 

ReCEE B Punction to rfor 

another RECEIVE via PuSTOn Bacro. 

it is re uired to post the cae Post 

aa by issuing the VS. 
Note: She. Bost amps Aes posting of 


beget 
POST-#a 


the PHET Driver BE 
Posting of the vee 7bouze Saster 
beta rad well as dispatching of the 


VTAM*s Return ecar eet 1s loaded 
from the SSCB 


tion. 


in © 
- to VIAN. 


control is given ba 
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CHART Si:  IPWS$$S1 - PNET SNA SUBTASK 











IPw$$s1 | 
OPEN/CLOSE 
ainline 
$1-1.0 
ee le aie ea ae ETT BIE) RSIS) SEER PRE eee access eles 
| Init. OPEN EWABLE | Poacnie CLOSE VSEWAIT { 
1 Initia- Ney, Enable ACF/ } isable ACP/ Close Wait for. { 
Lization ACP/VTAB ACB VTAS Exits VTAB Bxits ACP/VTAS ACB Termination 

\ Ss | S1-1.2} $1-1.3 Si-1. $1-1.5 { S11. 6} 
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IPwS$S4 - OPEN/CLOSE Mainline 





INPUT PROCESS ouTeuUT 
ee 
eee >Attached by PusT-driver as VSE 
-—,/|suptask. 
> 





for] Initialize ACF/VPAM ACB by performing 
$1-1.4 


S 
: 


¥DCBACB 


vpcs monn entre nnn > (Oz {Identify application program to ACP/VTAS 
by performing OPEN ti Gd 
VDCBACB | S1-1.2 
VDCB these atest hed If ACF/VTAM halting, then goto eee > 
3 [03] [eee 73 [09 ] 
VDCBTTC>0 | 
CSECT ween nnn nn = === + = Rnable ACP/¥TAd Bxits by performing 
| | s1-1.3 
keg 15 1 oe ae a eee me em ae __) aay If SETLOGON error, then goto ap Ca l 
| aie 
i 
VOCBCOMS 


posted .or QUIESCE or CLOSE, then 


being activated again 


VDCBLGQ=O0FF 





VDCBCOMS 
VDCBLGQ=O8 


VDCBCONS 
VDCBSCL=OPP 


If not posted for CLOSE, then wait until 
being posted for CLOSE processing by 
performing VSEWAIT efnave 





i 


1 
’ 
t 
1 
i] 
' 
‘ 
1 
i) 
i] 
1 
{ 
| 
Vena 
° 
[5] 
or w 
rh 
ie » 
ter & 
aa Hi ke 
ae ic] 
¢t 
° 
au 
» 
NA 
® 
® 
Lal 
ft 
oe 
a 
a 
ta 
o 
i] 
un S. 
=~ (' 
1 th 
~ O 
e 4 r) 
* oe 
ae ar A Sn SO STEEN SE DAES HE Ce TREES DC RET TT 


VDCBCOMS Leia Mareen ene aan 09j |[Dissociate application progras f£roa 
| ACF/VTAM by performing OSE 
VDCBSCL=ON $1-1.5 


or 
VDCBLOGF=ON l 
Return to pears?) 
e 
[be 
-/ 
v 






3 


VDCBOPNP=ON 


i 








NOTES 


NOTES } BODULE | LABEL 


} BODULE {| LABEL 















Rout ane dada a Yee subtask | 6 It Bight Aorees oe teeta S114 H 
which is attac F) e@ 1S _ pos ro) rfora 
PNET-drivec to erfore the gor BSCE er CLOSE processing Shas 
ACP/VTAM OPEN, SETLOGON and CLOSE it is aust processing OPEN and 
functionse Also SEND, RECEIVE and SETLOGON. 
BEL Sette are scheduled under this gia’ TEESES4 coetine wodker ts 
ask. 
t . PNET-driver ECB thus’ indicat an | 
| ’ Buiidan AGE/VTAS ACS an the VDCB perforsed now. EPussst reaains. in 
a an ° 
area. An ACB 1s pcedefined in tne g WAIT state antil it is posted to ! 
fhe voch: Relevant ACB fasids are space eoaber anaes: | 
. e 
initialized. | The QUIESCE routine is executed to peae0 
; . ; qu seece the ACP/VTAM exits. Error 
2 The OPEN routine is excuted to | 1] RD4I is displayed in case of a | 
sent set the application dae SETLOGOM error. 
in error means a will? Hg At The subtask waits until the $130 
case of an Oped error (1RD2I). PHET-driver posts the subtask 
The subtask terminates when any again in order to resusze 
OPEN error is detected. processing of the CLOSE. | 
9 3EFLOGON an Case ACE/VTAA as * dissociate the application progras oe 
ase 
halting. No error message will be from ACF/VTAM. In case of a CLOSE 
displayed. Sisplayeis message IRDSI is 
4 The SNABLE routine is executed to | 
that aeceion siectsrcin pe” id H ae the IP#@$$S1 subtask does not ma 
sts 
{ Beceive fron Teaote nodes. sack re ongcre pg eae Sate pha ae 
nb error gessage wi e issu in ocks an unction pg S, a 
case of an SETLOGON error (13RD3I). separate routine (*nessage display 
5 The sudtask tersuinates when any | Simulate theses function sodules. 
SBETLOGON error is detected. { 
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IPw$$Si- INIT, Initialization of ACP/VTAA ACB 
PROCESS 


INPUT 





ACB to the VDCB. 





PNCB 
PNCBASE 





Return to mainline. 












NOTES 


1 The PNCS address is contained in 
the Cat. . 5 ; 
Tne VDCB.address is contained in 
the PNCB. ; 

The save area is located in the 
CSECT. 


{ SODULE | LABEL } 





2 An ACB has been predefined in the 
subtasks CSECT as follows : 


S1ACB ACB AS=VTANS, SACRP=LOGON 


ACB StACB 








Generate ACB in VDCB by snoving the model 
Store APPLID address into ACB. 
Store address of the BXLST gacro 


| definition into ACP/VTAM ACB. 


Clear ECB in VDCB for subsequent WAIT*s.- 


OUTPUT 





Return to Mainline-eee 





iceaeaan comargene ERA eat 


NOTES 


The APPLID 1s contained in the 
PNCB whereto it is soved 34 the 
command processor during the 
start-up of the first node. 


f AODULE | LABEL 


The BXLST macro is defined in the 
mainline section of the ACP/VTAK 
exit routine IPwSSSE. 


IPWSSSE 


Chart $1 
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IPwWS$S1- OPEN Identify Application Programs to ACP/VTAM 
































InPurT PROCESS OUTPUT 
I 
H tes 
| Aen by Sainline. | 
| Set keg 15 to zero. 7 keg 135 
¥DCB eee Issue OPEB ACP/VTAM ACB. 
[vpcBace } | | 
| heg 15 | teeatennenenetas eae ——> 403} Tf OPEN successful, then : 
RTNCD=0 
| A. Retura to mainline. 
Reg 15 ae If OPEN unsuccessful, then : 
[RTNCD>0 | 
| A. Set °OPEN faalure® flag. VDCBSTA? 
H B. Issue error message 1RD2I. | [vpcBopur=on] | 
oy 
| | | Ce. Set "OPEN return® flag in VDCB. - VDCBACTY | 
| [vocporeT=om| 
| D. Post PNET-driver ECB. ~_> TCb (Ldr) 
| | [rces=o9 
| | E. Post VSE/POWEE Master ECB. ——> cat 
i P. Detach subtask from DOS/VSE. 
| Return to Hainline.cos] 
e 
{ yet 
| : Io 





WOTES 


Reg 15 must be set to zero before 
isSuing an OPEN reguest. 


The ACF/VTAN OPEN identifies 
VSE/POW as an appt cote 
program to ACF/VTA&. 


388 VSE/POWER PLM Part 3 





{ SODULE } LABEL | REF 







HOTES | MODULE | LABBL 


$170 





Regeerer 15 contains a return code 
with non-zero value in case of an 
OPEN error. ACB field ACBERLFG) 
contains the error code which is 

diplayed with error sessage 1RD2I. 


The subtask is terminated 
immediately after encountering an 
OPEN error. 


OPEN 






$1450 






eee 
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IPw$$S1 - ENABLE, Enable ACP/YTAS Exits 
INPUT PROCESS OUTPUT 





cSEcT wee eee e ee een Issue ACF/¥TAN S8TLOGON to enable exits. 
fl 


mone nn en >[0z] If SETLOGON successful, then : 
RTHCD=0 
A. Sf a aa successful® Plag in 
ie V DCBOPER=ON 
Reg 15 "enema ames ¢ 1 If SETLOGON unsuccessful, then : 


[RTWCD>o | 


A. Set VDCB error Plag. -VDCBSTA1 


VDCBLOGF=08 


B. Issue error sessage 1RD3I. 


| Set *OPEN return® Plag in WCB. 
| 


meee emer nese Vetere sige mene reer \ fae GEER Se SE SO 
< 
8 
un 
8 
> 
- 


A AS REEL SEN PS EY ES PE ES TT TEN AT TE HO | 





VDCBACTI 


¥VDCBOPRT=ON8 


fos} Return to mainline. 


Return to Rainline.cee| 
reese 


IT Fnn Se GARTEN EE one, 


E 


OF ese re A A eG Oe OS REE a CR RA Sy RE RE, 





i | 





BOTES {| SODULE | LABEL | REF NOTES {| MODULE | LABEL | REF 
1 A RPL with the options for a SETPLOGOS 3 Register 15 coatains a non-zero j 
SBTLOGON has been predefined in value and the PDBK2 code has been 
the subtasks CSECT. set. 
4 Register 15 contains a zero value Eros message 1RD3I vill be $175 
| after successful completion of the displayed case ap 
SETLOGON. unsuccessful SETLOGON. i 
| Tne SETLOGON flag YDCBOPEN=ON 
indicates that at this point ve 
can receive session requests 
issued by remote nodes and we can 
establi sessions on Our Own. 
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IPpw$$S1 - QUIESCE, Disable ACF/VTAM Exit Routines 
INPUT PROCESS OUTPUT 


e 

She 

eee alled by Mainline. 

day 
csect Km mm mmm eee —>t01} Disable ACP/¥VTAM exits by SETLOGON 
~ QUIEBSCE. 

SURPL 
Reg 15 Pre eateries ciara | If SETLOGON unsuccessful, then =: 
RTNCD>O | 


A. Issue error sessage 1RD41. 


Return to mainline. 


| Return to Sainline.cee} | 





A ee ccotineheeell oath amen 


| pu 


SU FE NES te TENS EYES 


uOTES } MODULE |} LABEL | REF 


No gore session reguests will be 
Passed thru the SCIP exit after 
successful completion of the 
SETLOGON QUIESCE. 


NOTES t BHODULE j LABEL | REF 
The LPW$3S1 routine is posted by SETLOGOW 4S120 | 


the PNET-driver to call the 
QUIESCE routine to disable the 
ACP/VTAK exits. 


The ACF/VTAM exits are only } 
disabled when the SETLOGON 
OPTCD=START has been cosapleted | 


Errore rnessage 1RD4I will be 
displayed in case of an 
unsuccessful SETLOGOH QUIESCE. 


successfully. 
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IPW$$3S1t - CLOSE, Dissociate Applacation Program from ACF/¥TAM 
INPUT PROCESS ' OUTPUT 


7 | 
| 


ceed 
eee >Called by Mainline. | 
u—/ 


I 
| 


——. 
es 
5 ene a AD EN Gey OE eeNEept eto Apt se SITES une GUI TEER SUR 


VDCBSTAT 0 === ----- -- --------- = >for] If OPEN failure flag on, then goto oy 07 


VDCBOPNP=0!) 
Set Reg 15 to zero. 


VDCB —«—-_-«-_ i mr ere eee one >{03, Issue CLOSE aAC&a to dissociate VSE/POWER 


from ACF Ae 
VDCBACB | oe: 
' 





| 
| 
| 
3 


Reg 15 If CLOSE unsuccessful, then : 
[Rrncp>o } 
oe 


A. Issue error aessage IRD5I. 


A. Issue message REI. 


fos} Reset *SETLOGON successful® flag. VDCBSTA1 


Pee 7 
| aca adh 





| 
| 
| fos} If CLOSE sucessful, then 





Post PNET-driver ECS using the POST TCB (Ldr) 


TCEP=O8 





gwpacro. 


: 


HAE CE HP TENE NET aL EE SEE OEE GP YS ET I ES a SE 


fo7} 
| oo 
Detach subtask from DOS/VSE. | 


Return to DOS/¥SE.cee | 
ra it 
ye 


TNA SY OI I SA I SE SE IE SSG SNS ee SP yer SR Ne ey CS cD NT 


- 7 





| ¥ 
{ NOTES i MODULE } LABEL {| REF I NOTES ) MODULE | LABEL {| REF 
The CLOSE routine is executed to ‘cl 6 After closing down the API, the $150 | 
dissociate VSE/POWER fror ‘OPEN succesful® flag is reset to { 
ACF/VTAM. zero to indicate to the 
| PHET-driver that the VDCB can be i 
1 The CLOSE cegnere is only issued CLOSE released. 
when the OPER has been completed | c | 
successfully. J The PN&P-driver ECB is posted to POST $152 
Ht anform the PRET-driver about f 
2 Reg 15 aust be set to zero before completion of the DOS/VSE subtask. 
the CLOSE request is issued. 
The subtask is detached froa $152 
4% Message TRDSI as displayed in case $190 DOS /VSB. 
of an unsuccessful CLOSE request. t 
5 Message 1RE1II hes ay! yed in case { i 
| of a Zaccesssful ai5 E peegeest to 
indicate that the ACP/ 
| interface has peen Sate inated: t 


a SNe teense 


Chart S1 391 


Licensed Material ~ Property of IBM 


IPWSSS1- VSEWAIT, Wait for being called by PNwET-driver 
INPUT PROCESS OUTPUT 








> TCB (Ldr) 


TCSP=ON 


Post PNET driver using the POST macro. 





CR Oe a CS Re FN Se a Ee Pe ARE (Ge SPP SIP SP SNES 





VDCB ere een nn ae >fo2| Issue DOS/VSE WAIT macro. 
| PUCKETT | 


[¥OCBECB j | 
| 


DCB 


> 
| I ¥ DCBECB=0 } 
! 





| [03] Clear ECB in VDCB. 


oe a See 


| Return to saainline. 


Return to Hainline.ces} 
e 


poet 


-/ 
v 





NOTES $ SODOLE | LABEL { KEP 


2 fhe DOS/VSE WAIT macro is used for }WAIT 
‘communication of the DOS/VSE 
subtask wath the PuET-driver. 


NOTES {| MODULE } LABEL | REF 


The VSEWAIT routine 1s called to S160 
ost the PNET-driver and to wait 
Or resumption of processing. 


The DOS/VSE POST macro is used for |POST 
communication of the DOS/¥SE 
subtask with the PNET-driver. 
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CHART S2:_  IPW$$S2 - PNET SNA CONNECT TASK 


IPRS$SS2 

CONNECT 

Sainline 
$2-1.0 


wwe en meee eee 


on Sees el, g Ha Te eR Ee, oe eR ee = nd is Ete See 








! 
PERMIT GENSSCB OPEDST . OPNSEC | SESSIONC EXCHGFSH COUNTERS 
Check | Generate Establish Accept Reject Exchange Terminate 
Pergission SSCB Connection Request Request RJB FH HDR CONNECT 
$2-1.1 $2-1.2 $2-1.3 S2-3.4 S$2-1.5 1. 2-1. 
| 
Lin, t 
PERMIT? SEND 
Primary. Send 
Pera ission NJE FH HDR 
S2-1.7.1] S$2-1.6.1 
PERSIT2 | RECEIVE ' 
Secondary Receive 
Permission — NJE FA HDE | 
$2-1.14.2 $2-1.6.2 


Chart S2 393 


Licensed Material - Property of IBM 


IPW$$S2 - CONNECT, Establish SNA Session Between Hodes 
InPor PROCESS OUTPUT 


eae ea 


; 


SF ET PE CO ST eT eT I Rr SOE TE ENE NS AEE WAT BETTIS TAT He RS Ee PEE 


sL 
ets, 
[gh >Attached by PNET Driver as | 
' Tee Soe a ask. | I 
PNCB, VDCB ~----~-----—--------->}01] [Check for permission to establish a j | 
j session by performing PERMIT 
NCB addr S2-1.1 
SRQE addr 
RCB-Flays 
Reg 6 | Pewee meres om cee een == >}Q02} L£ secondary aP and =- 07 
2 jo] If no NCB present Or [-<<) ce | 
[SRQB-addr } If no pergission given, then goto | 
Sich iedee ett $ 03} If primary AP and | feo. 3 [a0 | | 
en | eas If ho permission given, then goto i fj -—— 
|NCBF 12=0FF | | 
NCB Rte tte te me meee ree fou} If permassion to establish session has ~_? SSCB (Reg>) 
- been given, then souuere virtual storage 
[wcsr12=0N } for and generate SSCB by performing SSCsiNIB 
Or GENSSCB : | SSCBSEPL 
NCBF22=0N8 $2-1.2 SSCBBIND 





















then archang? NJEB PM A 


Ss b rforgin 


NCh 
NCBBFSZ 


Se ee ST A EN A CIEE ED SY ES ED SMTA AE SE nar TS FETA NA (EY SNS POCO ANCES OEE ntsyCitese OSS 


Tersinate CONNECT processing 


{ S2-1.7 


Returh to VSE/POWER.eee 
e 
=| 


v 


{ 
| 
Reg Smtr rrr tt rrr n > fost If no storage obtained, then | 
‘eae | | A. If secondary AP, then goto ase }07 | | 
B. If primary AP, then goto “>[10 | 
—/ 
Reg 7 bo daa If Session request has been assued by 
own node, then perform OPNDST 
[ucB-addr $2-1.3 
t : 
Reg 6 wan nanan ~- === ---3 107] If received session request has to be 
1 { rejected, then perform SESSIONC 
SRQE-addrc $2-1.5 
NCBP 22=0FP H 
J 
Reg 6 wore > [OBE JIF Session request has been accepted, 
! then perform OPNSEC 
SRQE-addr $2-1.4 
NCBF 22=0N 
or | 
NCBF 28=0F F | 
NCB Se er ae oe cme enn fos} If session BaCCOestut iy ee eva dened | 


Ne 
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IPW$$S2 - CONNECT, #stablish SNA Session Between Nodes 
NOTES { SODULE | LABEL j REF 


Note : 
In the above diagram some 
references are made to NCB status 
flags even if there is ao NCB 
peorenee janes error situation is 
1 








andled in the SESSIONC logic. 


Routine IPWS$S2 is attached as a 
VSE/POWER task either when a 
session has to be estabiished or 
when a session reguest has been 
received from a remote node (thru 
SCIP Exit routine). 


At entry, Reg 6 contains the 
address where either a NCB or a 
SROE is Located. 


1 Session nequeete are rejected if 
there is already a session active 
or an OPNDST or OPNSEC pend ing. 
Purtheraore, it is rejected when a 
*PSTOP® comaand has been entered 
to stop VWSE/POWER.| 
A session request issued by a. 
rerpote node will be rejected if 
its APPLID is_not knowb or if 
there has no PSTART command been 
given (1.e. no NCB present) « The 
od adap dated be notified about 
the seSsion request rejection. 


2 aA session request by a remote will 
be rejected if there is either no 
NCB present in the NCB chain, or 

if there is no valid NDT entry for 

this APPLID or if there 1s already 

{ a primary AP in progress. 





3 


4 


0 


NOTES 


A primary session reguest will be 
rejected if there is already a 
secondary session in progress. 


The SSCB contains all control 
blocks and buffers used b 

IPW$S$S2. If there is no s orage 
available, the task will rema an 
a Wait state until storage becomes 
available. 


N i sessi uest will be 
fulfilled: if there iSino storage 


available, and a remote session 
request will be rejected. 


The bE izary logic issues the 
OPNDST to establish the logacal 
connection with the secondary 
application prograrg. 


The SESSIONC logic issues the 
SBSSIONC in order to reject a 
session reguest. 


The OPNSEC logic issues the 
OPNSBEC in order to respond to a 
session request and to complete 
session establishrent. 


The EXCHGPAH routine perforas 
exchanging the NJE PA ADRs _ an 
order to agree on a commonly used 
puffersize. 


The CONNTERA routine is called to 
rfora termination and cleanup 
or CONNECT coapletion. 











MODULE j LABEL 


| 


$222 


$240 
S$z3z 


S242 


$256 


Chart S2 
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IPW$$S2 - PERMIT, Check for permission to establish a session 
INPUT PROCESS ——————— 


VDCB 01] [ee [ow } 


vpocBTTc 





Reg 6 ; If primary AP, then perform PERMIT1 


NCBSPL1 


! 
| | 
Reg 6 amen (Nr secondary AP, then perfora PERMIT2 mace = ____..._ 2? NCBSPLZ 
{SRQ£-addr } | 





NCB-addr S2-1.1.1 








Lo OL J | 1.2 ts as 


° 
® 
i 5 


Return to mainline. 


Return to Hainline.eee 
e 

=| 

aA 
Vv 


ee 


Lee ee ei Se eae ate a a a 












NOTES { MODULE {| LABEL | RBFP NOTES } SODULE { LABSL 














1 In case any stop code is set in i 2 = riser ant St cooror ae neee1cn 
Given and Bose ion cavabl saament concurrent secondary AP executing. 
Cannot be performed. aieuae is set if permission is 
: ! 
The CONNECT task will be detached 
A rerpote session request will be 
i bee cera: uoceace oe th we hnces | | ? accepted if no concurrent primary 
| any error message as the reason ap ik cuacatiod ana at a Welad 
for discontinuation 1s explained MP PETD ne derided in the EDT and a 
H he state t aq se t ae in tae, NCB is present in the NCB chain. 
DCB. The> onedens coatings Rae Note that the NCB-fiags enceun in 
VDCB. The CONNTERS routane has eoee peat. © are oat gs, sh 
eal ts Sa th NCB tweperen a) and there ag a NC resent. | { 
oca in e ; 
has to post the PNET Draver ECB. | | { sieves. is see permission 1S { t 
H The CONNECT task wall issue a | | | 
SESSIONC in case of a Secondly AP H 
| without any error message as the 
reason for discontinuation 1s 
explained a the error message 
Hosier nied he status flag settang | 
in the i a a ee ee ee Pe ere 
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Ipw$$S2 - PERMIT1, Check for permission to establish a session aS primary aP 
INPUT PROCESS OUTPUT 


| 





Scallea by PERMIT. 


fe 





os me 
NCB pores ee pe If any Stopcode in NCB, then goto shea 4 08 { 
| = | 
| Reserve NCB. | 
Pech Sotioel Seal (?) If secondary AP has been given [oo0 "> 07 
phat akc ae } permissions then goto 2 / 07 | 
| 
a > If secondary AP has established [ore > 07 
pled 104] session, then goto 4 07 | 
| 
| tas Set *Primary Permit given flag in NCB- : . NCBSFL2 


NCBP 12=0N 


Set *Session in progress® flag. aoe: ~> NCBSPLZ 
NCBFP 26=08 








ce a ca ne LS EY TY 2 SE Se 


Unlock KCB. 


remeron rere: 
fo) 
oa 


{foal Return to PERSIT. 


Return to PERMIT-« | 
pe 


cece Wane enn aioe EN EE A I CINE SD NR TS NS LT NE ST ST ST | 
ace PS ES Pe CS ey RAED 





{ NOTES | SODULE | LABEL | REP } NOPES 


1 Any stopcode set in the NCB 
implies that session establishment 
cannot be performed. 


The CONNECT task will be detached 

without ahy error gessage as the 
reason for discontinuation is 
explained by the error message | 
descr ibin he status flag setting 

in the NCS. The CONNTERM rout ine 





{| SODULE {| LABEL j KEP 


| 
| 





a secondary AP as running 
coacetresr y with a primary AP 
aSke 


4 Wo permission is given if a 
sescondary appa seat son program nas 
already est ished a session. 

5 The *PERSIT given’ flag indicates 
that all prerequisites for session 


j 
has only to clear the TCB address L | 
establishment are checked and that 


located in the NCB Aeoocece and 
has to post the PNET Driver ECB. at can proceed now. 
2 The NCB is locked during IPWSESR 

peraiassion checking to prevent 

another CONNECT taSk n to get 

the correct status. 


6 The *Session in progress* flag is 
set to infrom the PHET Driver 
about session establishment being 
just performed. As soon as the 
Session is estaplished, this fla 


is turned off and the Ssession ok 
flag is turned on instead. 





ee rere Mite Saree ieee ree mR ar eet 


3 This situation is encountered vhen 
i 
t 


eet re ae er ee ere eve ee nee 
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IPW$$S2 - PERNIT2Z, Check for permission to establish a session as secondary AP 
INPUT PROCESS OUTPUT 


P| 


B. Set SENSE code in SRQE. ar] 


| 
[3 C. Goto peli] | 
, le 





A. Issue error message IRE2I with 
RC=0002 








—— 
ee aan 


Reg 6 Weteeeatass kk 


SRQE-addr 


O02} If remote APPLID not in NDT, then 


aT 


pres be 90 epee voce ot ores 
e 


A. Issue error message 1RD61L 
B. Set SENSE code in SRQE. SRQESSHO 


c. Goto 23 [73 | [wor J 


—---->}03} If no NCB in NCB chain, then 








A- Issue error message IRC7I 
B. Set SENSE code in SRQE. | face 4 
> 


Ree oe ee 
—,/I 





CB menenn nena n nn nnn nnn > [OW If any Stopcode in NCB, then goto [es 7 13 
NCBTTC 


ee ee ——--->} 05] I£ NCBINIT=ON, then goto ead >f13 | 


NCBINIT=ON : 


Reserve NCB. 


wo----------------- -->}07} If primary AP has established a session, 
then 
NCBSEOK=0N | 





A. Set SENSE code into SBQE. SEQBSSHO 





ee 


NCBSPL1 wenn nnn nnn 3 [O8F I& primary AP has session pending, then: 


1 

B. Goto fore '> 12 | 
7 

| 











NCBF 12=0N | | 
A. If remote APPLID > local APPLID fore’ fos } 
then goto , /I | 
B. Set SENSE code into SROQE. SRQESSHO 
xe45e 
C. Goto eee > 42 
[ere 2 fiz | 
fos} Set *Secondary Permit given® flag in > NCBSPL2 





wy 


| NCBP22=08 


NCBSPL2 
i= NCBP26=0N 


| 


Set "Session in progress® flag. 


ee errr eme enen em wet 


Store TCB address into NCB. 


a OAT SE ST SD I SP ST A Pa SP-C PG PE PSPS SP SE NASA PR CE a PS SS PT SP EAE SS SP WE Go SE GIR SH EP 


SCBCTCB2 





Unlock NCB. 





Return to PERAIT. 


7 


] & 


ee Ga 


a eg ee aera tr ern a Le wt nr Er a PPE CP SA PS Se PPPS STP UG SRP Se SPP ST a SNS” S Ag SPOS SOE OS 
wz =z tag 
Q Q 
wo o 
“a od 
" Q 
r ia] 
N - 
i 
- 
w 


Return to PERMIT.«ee| | 
pet 
re 
De es ee a Bn te ee 
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IPwWsS$S2 ~ PERAITZ, Check for permission to establish a session as secondary AP 





















NOTES | MODULE ¢ LABEL |} REF NOTES | MODULE [| LABEL | KEP 
1 A session request as rejected if % fhe session request is rejected in { 
| the received BIND image does not case a stopcode has been Set in 
agree with the BIND image def ined the meantime in the NCB. 


in the task*s CSECT. : 
SENSE code X*z1® is set which 
means *Invalid session 
parameters®. 


2 The NDT is scanned for an entry 
J 


6 The NCB must be locked during Leu SR SR 
checking Of the status of the | 
plirmary AP and during the setting 
of the status flags. 


with a aatching APPLID (which 1s 
the 


D 7? The session request is rejected in 
contained in received BIND 


p i case the primary AP has already 
command, i.e. in the SRQEB. established a session. 
If no valid APPLID has_ been found, 8 The session request is rejected in 
error mesSage tRD6I will be i sa dang 
session ahd if the local A ID 
higher than the reaote APP 
} 
! 


displayed and the session reguest | 
9 The moecondary Permit given® fla 


is rejected. 
The SESSIONC is issued with SENSE 
code X*OF* wnich means "End user 
not authorized*. 


case the primary AP ha pen 
LID 


1s 
indicates that ail prere wasites” 
for session establishment are 


checked and that it can proceed 
now. 


3 fhe NCB chain is scanned for an 
NCB with a matching APPLID {which 
is contained in the received BISD 


command, 1.e. 1n the SRQE. 10 The "Session in progress" flag is 


set to infroa the PNET Driver | 
about session establishment being 
gust, Ber. ormed. AS soon as the 
session is established, this fla 
is turned off and the ‘Session ok* 
flag 1s turned on instead. 


If no NCB has been found, error 
nesuage WC7XI will be displayed 
and the session request is 
rejected. ‘ . : 
The SESSIONC is issued with SENSE 
code X*12® which seans 
*Insufficient resources'. 














7 
t 
7 
7 


| 


[="7 
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IPW$$S2 - GENSSCB, Generate NIB and RPL*s in SSCB 








Iapotr PROCESS 
oY | 
@.s, 
| [obs Called by Sainline. 
ed 
[o%} acquire virtual storage for SHA Session 
Control Block (SSCB) by issueing $RS¥ 
Reg 1 te a cn am am ce tm >(|02} If storage obtained, then goto [eee 
faaar= H 
a e 
| If primary AP, then 
A. Set °PAP error® flag. 
* | 04%} If secondary AP, then: 
A. Set "SAP error® flag. 
| B. Set SENSE code for SESSIONC routine. | 
[ 05] Goto pepe | 
ea I 2 
CsEect ~__________.________?}06} Generate a NIB by copying the model BIB 
into the SSCB. 
S2N1B 
H A. Store BCB address into NIB OSERPLD. 
NCB | > Be Store remote APPLID into NIB NAHB 
a ° 
NCBAPLID 
CSECT >|07{ Generate RPL"s : 
S2RPL 
[szrex | { | A. Generate SEND-RPL copying the 
model RPL into the SSCB. 

B. Generate RECEIVE-RPL by copying the 
model RPL into the SSCB. 
"names (| Initialize SEND-RPL and RECEIVE-RPL =: 

reponse 
NCB | A. Store ACB address into RPL. 

| B. Store NCB address into RPL. 

Reg 6 nnn mine | OD] If pramary AP, then generate BIND image 
. [09] in 8§¢p°:? *’ - _ 
NCB~addr 

CSECT A. Copy model BIND image into SSCB. 

{s2BiND } | 

[| 

PNCB aS | B. Store local APPLID into BIND image. 
PNCBAPID 

NCB —; C. Store sax buffer-size into BIND 


image. 
NCBBPSZ 





D.- Store BIND image address into NIB. 


eee 


| [70] Return to sainline. 


A EE IT A TY SE NSS A A A-SI MSD AP AEP PI US Se He SY RS AP eA ge Pee 
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| 











Return to Mainline.eece 
eo 
=] 


"¥ 


ourPpuUT 


> 
| 





Reg 1, Reg 5 


Storage 
address 


; 


NCBSFL? 
8 CBF 16=08 


Po EOE CR CE NE ES A A SS EE ID ALT I AIT YAS LN POH I PO DS TE AE NIA A OT GE SSE SES LT EL TE SSS A TL a MS Say I ST AP a chat SS ae See Gar eae San 


NCBSPL2 
BCBF 28=ONn 


SRQESSHAO 
x*t2° 


! 


SSCBNIB 


NIBUSER 
BIBSYS 


nH 


S CB 
SSCBSEPL 


w 


PL 


PLDA 
RPLUSPLD 


w 
QO 
w 


SSCB 
SSCBBIND 


SSCBBIND 


BINPRISL 
BINPRISH 


. 


SSCBBIND 


BINSRUSZ 
BINPRUSZ 


SSCBNIB 
NIBNDAR 


- 
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IPwW$$S2 - GENSSCB, Generate NIB and RPL*s in SSCB 
{ SODULE {| LABEL 


NOTES 


The GENSSCB routine 1S called to 

Create a BIND image (only for 

are a uIBe a ‘ve D-KPL as well as 
Celve-RBL All these control 





locks are locetei in the SWA 
eae Control Block (SSCB}) which 
is chained to the NCB. 
Reg 5 points to the SSCs. 


1 The SSCB is puilt in a contiguous 
area of virtual stora e which is 
acquired using the $R macro 
instruction. : 

The IPWSRSV macro to obtain 
storage 1s issued with the 
WAIT=YES option.. 

The PRET Driver is defined as 
owner of the acguired SSCB 
storage. 


| 2 Only an case the CONNECT subtask 
| has to be cancelled, no storage 
| 
! 


Bight be obtained. 


3 otek pete © metry 1S not | 
eagle ormed in case no sabotage could 
e obtained for a primar 

The CONNTERM routine will perfors 

following resetting: 

The *SesSion in progress* eer en) 1 

has to be reset Pthe PAP flag 

NCBSFL1 is reset to zero, the own 

TCB address is cleared in the NCB 

ota) and the PNET Draver is | 


posted. 


4 Session establishing is not 
rformed in case no Seer age conte 
e obtained for a secondary A 
The session reguest of the yenote 
node is rejected with SZNSE code 
X¥*32°* whac 
resources?®. 
The *Session PEOgre SS fig 
has to be reset, the SAP 
NCBSFL2 is reset_to zero, the own 
TCB address is cleared in the NCB 
(NCBCTCBz), error message 1TRE2I 
wath RC=1 is displayed. tad Ae 
A as 


means *Insuffacient 


as released in case ACF/V 
terminated its functions, 


otherwise a SESSIONC is issued to 
reject the session reguest. 





IPWSRSV 


$222 


S222 


$222 


| 
: 
| 
: 
| 





| 
: 


NOTES 


A NIB 1s hard coded in the tasks 
CSECT and is moved to the SSCB 
where only relevant fields in the 
NIB are changed. 

The NIB contains in its USERPLD 
the associated NCB address thus 
making it available to the exit 
routines. 


A RPL is_hard coded in the tasks 
CSECT and this RPL as noved into 
the SSCB. 


rot iow ny addresses have to 
relocat in the SEND-RPL as yell 
as RCV-RPL ; 

NCB-address, 

ACB-address. 


A Ping th AP_uses the BIND command 
during the OPNDST. A model BIND 
amage is coded an the tasks CSECT 
and is goved into the SSCB. 
The local APPLID contained 

PNCB as well as the buffersize 
contained in the NSCB are inserted 
anto the BIND image. 


in the 


Note that the buffersize is | 
transformed into condensed format. } 
The BIND snags address is stored 
unto the NIB. 
| 


} SODULE | LABEL 





$223 
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IPWS$S2 ~ OPNDST, Establish logical Connection with secondary Application Prograr 
PROCESS 


InPUr 


“a 
wn 
9 
w 
oe 


SSCBSRPL 
SSCBNIB 


15 


| 
| 


w 
ce] 
G 


RTNCD>O 


mw 
® 
ve} 
ay 
wm 


ee re A Re RES! SEIT IESE Oey AeA Oar PEDO eee pth te ee 


Reg 15 
RTNCD=0 i 
I 


Reg 5 


[sscB-addr } | 


ee RS SRE SS EE Ae Ne Se SS YE SS SESE ED EE SA SS ESS SS S  SEANS eT ey I SE SUN PSS TES FY NU 


arg a te CR ER A 


J 


NOTES 


1 The OPNDST macro is issued 
aay hchy OGueusly using the ECB 
located in the TCB for posting the 
coapletion. The OPNDST is 
coapleted succeasfuily when the 
ACPUVTAN on the secondary node has 
sent the SDT successfully to the 


rn set ree co 


secondary application program as 
reply to the SAPts OPNSEC e3 


3 The OPNDST macro can complete with 
error in two different ways : 


An ACF 
a8 icated 
codes set an 
and FPDBK2= 
next pete 
Following action are performed : 


uCBE 26) 
has to be reset, the PAP 
NCBSFL1 is reset to zero, tree own 
TCB address 1S cleared in the NCB 
Neb teeta 8 the SSCB is released 
and the DISCONNECT task and the 
PNET Driver are posted, The flags 
NCBTTCL and NCBLNSK are turned an. 





VTAM error occurred 

y a RTNCD>0 ace FD BK 2 
the RPL. (RTNCD=16 

is an Srcention. see 


The "SesSion in Progress" 


ae eo er ane 
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A SE TS OT SS EOE CN ST Se 


bon i 


| 


H 05 


| 


| 


{[ wores | NODULE | LABEL | REF | MODULE | LABEL } 





OPHRST 


Error ressage 1RD8I 1S displayed. | 


bee Ske thee 01{ Establish connection to other 
| a 


application program : 
OPRDST BPLeceL addr. 
NIB=n ib-addr 


OPTCD= (ACQUIRE, ASY) 
BeBe rece £23 7 - 


if OPEDST initial completion successful, 
e 


A. Wait for compietion of OPNDST. 
B. Check completion. 


If OPNDST unsuccessful then : 


If "Insuffacient resources®, then 
Issue error message 1tRC6I 


If error without ie Soses then 
Issue error message iRD8I- 


C. Set "Primary error® flag. ee ee ee oe 
D. Set "Node stop reguest® flag. 

E. Set "Node stop request® flag. 

P. Turn off "Session in progress® flag. 

G. Unlock NCB. { 

H. Goto [eos > fos | 


If OPWDST successful then : 























pny 


_ 
| 
— 
a 
| 
| 


| 
| 
| 











A- Reserve NCB. 

B. Store SSCB address in NCB. | 

Cc. Turn off "Session in progress® flag. | > 
D. Set "SESSION OK* flag. | > 
E. Unlock NCB. 


Return to mainline. 


Return to sean: 


ai 
v’ 


2.). Sense modifier information has 
been sent by the SESSIONC 
er etek eg and SSENSMO=5, 15, 18, 
or 
Message hicor will display the 
sense codes in return code. 
Same actions as described in the 
note above are taken. 
4 After successfui comprerees of the 
OPNDST the *session peo ress* 
t 


flag will be turned off 
the session ok® turned on instead. 





NCSSPLI 


[scar t6=on | 
a 


NCBTITC 


WCBTTCL=On 


NCBACTTI 


[uCBLWSR=om I 


NCBSPL2 


[car 26=0rF | 


ncB 
{ecessce } 
ss 


HCBSFL 2 


NCBP 26=0PF 


RCBSFL2Z 


NCBS BOK=O8 


TY A 


{[  wores ©} NODULE } LABEL | REF If NOTES § AODULE | LABEL REP } 


Ee rE 
Re ree cE aS HE ENED Ge ERT eS oe OFS On ST Caine DIED SARA A 
EO ee ee ae SS SC SR SN SE 
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\ 


IPWS$$S2 - OPNSEC, accept Received Session Request 
INPUT PROCESS OUTPUT 


Ist] | 


jecee >called by Sainline. 
—,/ 





Uu— 


er er RE TERE ERED RnR SE cote finesse 


RTNCD>0 


A. Issue error message 18D8I. 





Be. Set "Node stop® flag. NCBTTC 


NCBTTCL=ON 
es 
NCBSPL2 

NCBFP 26=OFP 
a 
BCBSFL2 

BCBF zb=O8 


NCBACT1 


NCBLNSR=ON 


[ I I 
[01] Set *WAIT for SDT*® Flag in NCB as we are | $ NCBKSEST 
Waiting for it as reply to OPNSEC. i 
' | {NCBWSDT=on l 
{ | ————______ 
SSCB -—-_ ree w wn e nn eee e -->}02{ Issue OPNSEC to pated § sender of SIND | | 
{ J that request is accepted : { 
SSCBNIb f i | 
SSCBSRPL OPNSEC RPL=rpl-addr, 
u__—______— NIB=nib-addr, 
ECB=TCB-ECB 
OPTCD=(ASY,CS) 
( , 
Reg 15 eee ae IO, 03{ If initial completion successful, then | ! 
frtwcp=0 l : 
.______4 A. Wait for completion of OPNSEC. 
B. Check completion of OPNSEC. 
Reg 15 Regpas ius teases sing) If OPRSEC error, then : | H 


| 
lI 


| 


! 
| Cc. Turn off *Session in progress® flag. 
| D. Set "SAP error® flag. 


> 

| 

> 

t 

! 

I 

t 

| 

Se 

F. Goto [re=* [o7 | | 
NCBSEST =-------------------- > If SDT not yet arrived, then | 
| 

t 

| 


E. Set *Stop request" flag. | 
> 


fecssssp=-orrl | : 
u——____—_—_j A. Wait for SDT to arrive. 
NWCBSEST ~----~-----—-----~--} foe} If SDT received, then : 
[ycasssp=on } 
A. Reserve NCB. 
B. Store SSCB address in NCB. NCB 


PR Se Sa ee me Se SA NS te re PN GP IS Er SP SRSA DS aN -GHON Se OA ARDS SPE SM A ST PS NE FE PR ES He SN SA I: SR TET I SR PTS ES SO” Gt erp PaGr RA St A Se 


NCBSSCB 
NCBSPLz 

BCBSEOK=ON 
NCB 


[NCBSRUE } 


NCBSPL2 


[ucBP26=0FrF } 


Cc. Turn on ‘Session ok* flag. 


reer nn ee | 
nr re ren ae ee a 


Store SRQE address into NCB. 


Turn off "Session in progress® flag- 








I 
H FP. Unlock NCB. 
fo7} Turn off "Wait for SDT*® flag. > NCBSEST 


NCBSSSD=FF 
NCBWSDT=OFF 


i 


ae re na a Re HE Se ED NE en ES 
w o 
. e 





O08} Return to mainline. 
[ee 


a Sen ee ate Se echoes SAR SAD Re BEI PE FD BEFITS RGSS CVE OEE P= A EG FOP rg PP TS ee PSPS OA SY CD STEED ON MS AA OR AEP EARN ae te ee Aa mop en a 


Return to Hainline.see| 
e 
yet 





NOTES 


' 
The OPNSEC routine is exectued in | 
order to send a positive response 
to the (at the remote node) | 


MODULE {| LABEL 
$232 


BOTES { MODULE | LABEL |} REF | 


& any OPNSEC error will lead to . | 
immediate stopping of the session 








t 
establ ishrent process. t 
pending OPNDST. Message ?RDBI is issued and 
: . dasplays the ACF/VTAM RTNCD and 
| 1 The *WAIT for SDT® flag signals $232 | the PDBKz codes. 1 
the SCIP exit routine, that the The SSCB has to be released as 
| OPNSEC routine is going to wait } well as the SRQE. 


for the SDT as response to the 
OPNSEC. 


2 The OPNDST issued at the primar OPNSEC 
application programs node will 
f th 


5 ACF/V¥TAM will send the SDT and the j{IPWSHFC 
CONNECT task has to wait for its 
arrival thru the SCIP SDT exit. 
This exit routine will post the | 
CONNECT task which has to check if 
it has been posted either by the 
exit routine or by the PNET driver 

alte Abend. 


e 
completed successfully. The OPNSEC 


mh 
Len 


is issued asynchronuously. I 
OPNSEC_ completes unsuccessfully, 


an te 


e | 
no reply to the OPNDST is in case of a ACP, 
Boss. Le. ’ F 

he NIB NAME field contains the 
APPLID of the remote, i.e. of the 
primary application program. 


a 9 ee OEE EE SIS GO GI TN ey 


ee OE SE TR I Se 


| 
| 
| 
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IPWS$S2 - SESSIONC, Reject Session Request Received from a Regote Bode 








IspurT PROCESS OUTPUT 
vVocB > SBRQERPL 
[vocBacs | {BR PLDACB 
SRQE SRQERPL 





fSRQESSSO } 


SRQE 
SEQEREL 
SHQESS#HO 





RPLSS#O 


| 


Issue SBSSIONC to notify sender of BIND 
that seSsion 1s reject Fy 


SESSIONC BPLweploadar, 
STYPE=RESP 
t 


| 


n 
:- -] 
3] 
w 
i] 
ec 


CONTROL=BIMD, 


SSENSSO=2z 


Reg 15 terre n ewe eee nea fou} If initial completion successful, then 


| 


A. Wait for completion of SESSIONC. 
Be Check for cospletion of SESSIONC. 


Reg 15 +----------——----—---$ [05] If SESSIOuNC unsuccessful then : 


RTNCD>O 
A. Issue error message 1BD8I. 


t 








Reg 6 ee a ee > Be. If NCB present, then 
| Set "SAP error flag. 
NCB- addr 





uCBP 28=0N 


ee omar en a Vy SS SE OE TE ER EE IRE EON ce Sree ee gear Soe ee Yee eee 


Return to mainline. 


Return to calc 


| ne 
| a 


me em VY ERS mg Se 
wp me 
Bar 
oye 
one 
Za 
arg 
i 
Py pe 
Lelsg 
we 
ox 
ty 
=~ 
a 


: 























NOTES | MODULE | LABEL {| REF NOTES | SODULE | LABEL | REF 
Note: | } 3 The SESSIONC sends a negative acres ace ! t 
This routine can be called without response to the BIND originator, ; 
having a NCB present. thas causing the OPNDST to be | 

: : ; cospleted uasuccessfully. 
The SESSIONC routine is called in SESSIONC}S240 " ; 
order to perform the rejection of Following SBHSE MODIFIBRS will be 
ah unacceptable session request used to indicate the reason of the 
issued py a remote node. session request rejection : 
Pollowing internal error X*05* - Session limit exceeded. | 
Situatioas lead to reject a rerote X*0F* - End user not authorized. 
| session request : X*12° — Insefficient resources. 
1. Stop code in VYDCB or NCB has X°15® — Function already active. 
| been set. E X*21* - Invalid session param. 
¢- Invalid BIND has been received. . ; . ; $ j 
3. NO NCB has been found in NCB I 5 Wo recovery action is perforred in | 1 
chain. | ; case of a SBSSIONC failure. 
eA Py pery session has peen Bessage 1RD8I is displayed to. | } 
established already. | andicate unsaccessful completion 
5. A contention situation has been Of the SESSIONC. | 
encounter and the local apilad 
was higher than the remote own. | { 
6. No Storage could be optained 
and the CONRECT task has been 
cancelled. 
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IPw$$S2 - EXCHGPMH, Exchange NJE PA HDR TYPE 4 Data 
INPOT PROCESS OUTPUT 





ots, 
| lSee Scaltea by mainline. 
——/ 


~ 


VDCB/NCB wrooao—a--=—-——------3[01] If any stopcode in ¥DCB or RCB, then foes ’> 14 


goto 

fyacaerco | 
NCBTTC>0O 
ee | 

I 
Reg 6 te wre ee eee 2i fre rima at se send SJE FS HDR b | 

9 eed |perkora ng SE : 

[wcB-addr | S2-1.6.1 
hee eee OS eee Ea Dre ey RT er eee MRD ee OEE TR: | 


Reg 15-0 Sew esse see = >[03] If SEND error, then goto [-++'> 1 


| RTNCD>0 } 


Reg 6 wre Se em foe} If secondary AP, then send BJE PA HDR by | 
—Jiperforming SEND 

SRQE-addr | | S2-1.6.1 

| | 4 

| 





[RrNcD>0 } H 
i 
| i Receive NJE PMH HDR py performing RECEIVE 
$2-1.6.2 | 
Reg 15 ee If invalid FM header or [eee Sint) } 
| {—) If RECEIVE error, then goto i /j-— 
| 


ge ee ee ee Re TE OA A Se NETL TOS SS SY Sy 





Reg 15 wore rene ree ne ere aa >{O7 if sencondary AP and [eee 

3 H | SEND error, then goto 4 [1] 
{Rr¥cD>0 H 
a | 
SSCBPSHI We eae. ee >}O8f; If received buffersize < 300, then [ooo [10 } 

7 — goto ypu 
[SSCBBFSI | 
| Racecar | 
n=a--==-------------$ [05] If pecerres buffersize < sent buffer 
size, en 


SSCBBPSI 
NCBBFSZ 


Ff 


Pe RES EE Ne a ree | ee earn mn 





A. Store received buffer size into NCB. > NCB 


BCBBFSZ 








> NCBACT2 


WCBRCVR=OR 





Set *Initial RECEIVE* flag on. 


fa] Return to mainline. 


Return to mainline.cee . 
=] 


a cg ie Se eager sapere ues SURE AGP Ge SO SA iS SS STRESS Er SS SE SP SNS SY A a SP rat Aap se ae cA SANGRE Stereo 


Al 











NOTES | MODULE }| LABEL 


The EXCHGFAH routine ae called S242 
ter _a session has _ bee 

estaplished successfully an order 

to send and to receive the NJE FPR 

HDR TYPE 4 for the purpose of 

exchange of the buffersize which 

has to be used. The saaller of the 

two buffersizes will be used. 


4 After sending the first Ps ences! S244 
the primary will issue a RECEIVE 


in order tO receive the FM header 
from the secondary AP. 


The secondary AP wili send its PA 
neader after reception of . Pa 


| 
i} header from the primary. 


9 The sent buffer size is taken frosa $2438 | 
| 





| 
| 
| 


1 No exchange of buffersize is 
per Fornsd if any stop code has 
nh set in the VDCB or NCB. 


2 The primary AP will send its NJE 
PM HDR first wnile the eet B 
AP nas to set. up first a RECELY 


the NCB field NCBBFSZ and the 
received buffer size is contained 
in the FMHDR received from the 
rergote Spplscat soe program. 

The sraal 





$242 
er of th is used for 


data transfer and replaces the 
original buffer size in the local 
NCB. (only if it is > 300) 


| 
P| 
isa | 
| 


enone: 








Chart S2 405 


IPWS$S2 - SEND, Send 
INPUT 


HIS FMS HDR 


cSECT 
[szrau ! 


NCB 


fucBprsz | 


SSCB 


SSCBSRPL 
SSCBFAHO 


Reg 15 


[RtncD= 0 ! | 


Reg 15 


[RrucD>0 | 


PA AE ON SR aE NTE TS SN SA I CS SENS SY AS pS PAS SE SAS SASS 


NOTES 





The SEND routine is called by Sue 


EXCHGPSH routine to send the NJ 
PR HDR TYPE 4 for the purpose oF 


exchange of the buffer size which 


has to’ be used. 


1 A model PAHDR 1s defined in the 
tasks CSECT as follows ; 


byte O =: x*08* = length ot FMHDR 
byte 17. :s x*04* = type 4 indicat. 
byte 2-3 ; = buffer size 
byte 4-5 : x*0* = max chain size 
byte 6 : K*EO* = APPL features 
byte 7 : x¥*80* = RID indicator 


: Re a@ way 
a 
asynchronously as only in chain 


| that it sends 
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PROCESS 


Called by BXCHGPAH 


jie Prepare NJE PSH header in SSCB. 


A. Nove NJE PMd model into SSCB FM 
header output area. 


Sove buffersize from NCB into PMB 
output area. 


Issue SEND request asynchronously : 


SEND RPL=SSCBSRPL 
AR RRA=SSCBPBAO, 


Rey “ret 
CourHoL= Dita, 
CHAL 
BOST=RESE. 


| ECBeTCB- 
OPTCD= aSY Bes, PSHDR) 5 
RESPOND= (HEX, NPHE, HER, RQRESP) 


If initial completion successful, then 


A. Wait for completion. 
B. Check completion. 


fout If SEND error, then 
[ a | 


A. Issue error pessage 1RD8I. 


B. If primary AP, then 
Set "PAP error® flag. 


Cc. If secondary AP, then 
Set "SAP error® flag. 


Set “Stop reguest® tlag. 


B. Set "Stop request*® flag. 


fos} Return to EXCHGPHH. 





OUTPUT 








Gi 
i] 


SSCBFAHO 


SSCBF BHO 
SSCBBFPSO 





saint 


| 





NCBSFL? 


NCBP 28=08 


NCBSFL2 


RCBP 28=08 


NCBACTY 
NCBLSSR=08 


NCBTTC 
NCBTTCL=08 


| 





| 





Return to aeceeray<o2 
e 
jie 


{ MODULE { LABEL 
$259 


! BEP ROTES 
hea 


BEstonech 
the sessio 


erSe 


Tne NCB status riage. NCBPTCL and 
NCBLNSR are turned 
The NCB status flag ONCBSPLI is 

Srp ary jsvei The WCB 


| l 


cleared Fors 
BrAtie flag 
exce 


as Sadary ae. T 


released in case ar : secondary 


‘ 

n_both cases is 
ana the Berth 
posted 


SEND 
NCBDECB) 


3 


& <A SBND error leads to immediate 
headers: of exchange of PA 
Th operator is notified 

of pessage 1RD8I. The 
task has to terminate 


for? NGBSEOR “tla 





*y/ 


{ BODULE | LABEL 
$289 


REP 


sadeth aust be 


@ PNET Driver 
ECB (in 


C. nce 
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IPWS$Sz - RECEIVE, Receive NJE PM HDR 
INPOT PROCESS OUTPUT 


. 





wu. 

coe i by EXCHGFMH 
/ 

SSCB cone nen enn nnn nnnnnn n> [09] Issue RECBIVE reguest for HJE PM HDR 
Ss 


A. RECEIVE RPL=SSCBSRPL, 
ECB 


| =TCB-ECB, 
NIB="81B-addr 
AREA=SSCBPASHL, 
RCLEB=8 
OPTCD= asy CS, SPEC, TRONC phe 
RTYPE=(DPS{tn, ADPASY, NRESP 
If initial completion successful, then | 
| A. Wait for completion. 
| B. Check coapletion. 
i A 
RTSCD>0 | | 
RPLVTPL£ 0 wer rr rr rrr nnn If response reguired, then : 
RPLEX=ON 
[ee 
RPLN FHE=O8 | 
SSCB i a aaa et A. Issue SEED response synchronously: 


POST=RESP, 
OPTCD= (SYN ,CS) 


SSCBSRPL SEND RPL=SSCBSRPL, 
STYPE=RESP, 


~-----+-------------- [05] If RSHUTD received, then 


RPLCNTSC= 
RPLRSHUT 











Reg PW tt terres enn enter 7 [03] If RECEIVE error, then goto feos” 
| 





B. Goto vee >[070] NCBTTCL=O8 
[-== [070] [ncerrci=on } 


| 
| A- Set ‘Node stop regquest® flag. | 
| 
} 
t 


w 


PL ene we enna ne >[06] If received PA HDR incorrect or 


If no Fa HDR received, then 
PELE REDE SOE 





I 
| A. Issue error message trcll. 
| | B. Goto “>fo7B 


ale | 


Reg 18 0 wenn enna eo -+-- = 107] If SEND or RECEIVE error, then: 


RTNHCD>0 [ 
A. Issue error message 1IRD6I. 


B. If primary AP, then ee NCBSFLI 
Set *PAP error® flag. 
SCBF 16=0ON 








Cc. If secondary AP, then 


NCBSFL2Z 
Set *SaP error® flag. 


> 
| NCBP 28=08 


NCBACTI 


NCBLNSR=ON 


ae a ee eer Oe ce DR =A EY ER I ER A PI A Te SE SG Pe entre RE SS SS EP SSR SS SI SO 


| 


D. Set *Stop request* flag. 


Return to EXCHGPSH | 
Return to EXCHGPAH-cce 
ae 


eR EE AT ee ES Yr a A rs SR fe eS SS SPS EE SA Ee Cn te tn 
wo 
ic] 
ad 


¢ 
< 
‘“ 
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IPW$$SZ - RECEIVE, Receive NJE FM HDR 





NOTES { MODULE | LABEL {| REF yOTES 1 SBODULE | LABEL | REF 
The gt 4d RECBIVE macro 1s S284 6 ips eonase: Ps might have sent an [S246 
issued bg the EXCHGPAH routine to ® header or not an PM 
receive the NJE Pa HDR TYP£ 4 for 


aDR at Sh” The exchange of 
buffersizes is terminated and the 


the purpose of exchange of tne 


buffer saze which has to be used. NCB is flagged that the session 


5 H 
; | 
| The smaller of the two buffersizes | H has to be terminated. Error | | 
| will be used. gessage t#RclI is displayed. t 
| 1 The RECEIVE is set up in RECEIVE 7 aA SEND or RECEIVE error leads to S<8Y 
asynchronous manner Pad such that termination of the exchange of 
it can receive normal data as well buffersizes. The NCB as f Taggea } 
as expedited data like a RSHUTD that the session has to | 
command. Overiength data 1s sqeenetets Error message * aRDer as 
dascarded as it 18 incorrect. | d35P oe task has a { ' 
| < A wait is issued to await the CHECK terminate the ses 
final cpetrerae. which is checked ieerace atatee flags i HCBTTCL and 
usin e macro. are turne 
2 The NCB skate flag NCBSFL1 is ‘ 
3 A RECEIVE error leads to cleared Tor Bree ary AP. The NCB 
discontinuation of the exchange of status flag xc SPL2 4s cleared 
buffersizes. Error message tRDsI. | eS Gercuascy Apo the. Sede aust be.” ' 
4 rhe EPL Aes neen flagged whether SEND petcanes ah case of a secondary | 
e sender wants to have a 
peeeonas or not and the th * both cases is the PNET Driver 
ape Bopr aa te actaon is taken. | and the DISCONNECT ECB (in 
SEND response is issued sn a BCBDECB) posted, 
Eynchronoug manner. 
5 The remote node might have sent a | | i 
RSHUTD command. The exchange of 
puffersizes is terminated doa the \ | | 
| NCB is flagged that the session | 
has to ere inated. i j { 


408 VSE/POWER PLM Part 3 


Licensed Material - Property of IBM 


IPw$$S2 - CONNTERS, Terminate CONNECT Task 


INPUT PROCESS 


lenin i $$ 


& ve “called by Mainline. 


ouTPUT 


a 


wana naw enn nnn >it} If no CB present, then goto 























w----+------- —---- If permit has been given and 
GcnFassi i If no error has occurred, then : 
NCSP 2230N 
NCBF 48=OPFP. 
SCBF 28=OFP 
atatesheteterneeneeten _ ——~> A. teen ete nodenarme > remote nodenane, ~_> NCB 
PNCBO e 
HCN ANE Set NCBSGNR=ON BCBSGHR 1=O8 | 
Set NCBSGMRI=ON. 
Post DISCONNECT task. —=> yc 
| EEE: } 


8 CBD £CB=ON j 
fou} If SSCB to be freed, then 


A. Release SSCB using IPWSSRLV 


ER ee ee ee ee On ee 
aoe 





Reg 6 0 ween nnn nnn -------- -->|05]} If Primary AP, then 
NCB-addr 
A- Clear TCB address in NCB. NCB 





NC3CTCBI=0 


armamerareante Nf pane Gre aE Pome roe | aire owners meee eee \/' 


A. Clear TCB address in NCB. 


cB 
NCBCTCBK2=0 





SRQE-addr | 


Reg 6 


{sRQE-adar } 


If SRQ& present, then 
A. Release SRQE storage using PREEVIS. 


Clear NCB flags in case of error. 


a: 





a 


fos} Post PNET Driver. 8 (Ldr) 


CEP=08 


eon com Nye gener eetee trea 





om 
Lc) 
i) 
\ 
| 
eS AN SS CL ES EG SEER Ra NS A A SS SSE SAP Se Gn Sn ee me ger OO Se TEE ee 


ST TD LE LS Ce TE: EE I TT I TC CTT a ED I SS DY ADT OP SPP a= G Sie SSP 
arin 


Reg 6 2 arene ne —-—-—---3 [05] If Secondary AP, then | 
| 





fro] Detach from VSE/POWER 


a eee a 


} MODULE {| LABEL 


NOTES { REF NOTES } SODULE | LABEL | REF 








| The CONNTERA as cailed in order to $256 4 The sce (if engqaized) will be IP@eSRLVY | 
perfora the task cleanup. released in following cases : j 
a) a session could not _be j 
1 This condition is caused when a established successfully, (OPNDST 
session request has been received, or OPNSEC error), 
but the local operator has not b) no perrission has been given 
iven the *PSTART® command or af 1 for session establ ishszent. 
he APPLID is invalid. | In all other cases the SSCB is 
released by the PNET Driver after 
2 The node with the higher nodenase terminating the session. | 
will send the SiGN- record farst ; \ 
while the other node wit he 7 The SRQE 1s discarded as it is not |} PREEVIS 
lower nodename will receive this used anyrore. | 
’ 9 The PNET Driver ECB is posted 
Error condition means ; 
top code has been set ; 
7 Storage available 10 The CONNBCT task is detached af ter IPWSDET 


OPNSEC failure 
SEND failur 
KECEIVE failure. 


3 The DISCONNECT routine sight have 
waited for CONNECT task to 
complete. This gg ttre when the 
operator enters a PSTART Command 
ahd immediately after it a PSTOP 
command for the sage node. 







| 
| 
| 
record first. 











session establishs 


complet in 
or qusuccessrurly = 


Succes fa 














| 
| 
| 
| 
| 
ality 
| 
| 


before the subtask 1s detached. | 


Chart S2 





SPS PN SE ER EE SS SE GR Oc EE LE I TEE EN ne SP 


HOY 
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CHART S3: __IPW$$S3_- PNET SNA DISCONNECT TASK 


a a A TS ce ee I 


IPWS3S3 
DISCONNECT 
Sainline 


j S$3-1.0 
fear ee eae ae eerees ET ET aR Seer 
CHSTATUS CLSDST TERMSESS DISCOTERSA 
Session Terminate era inate Tera inate 
SEatUG 4 Primary AP Second. AP pice se; 


Chart S3 411 
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IPW$$S3 - DISCONNECT, Terminate a Session - Mainline 
Inport PROCESS 


L | 


e 

e . 

je S attached by PNET Driver as 
ar [Oe POsEs ask. 


OUTPUT 


VDCB/NCS Petr rn ne rece > Check status of session b rformin 
/ @ CHSTATUS ¥ Pe 9 
VDCBTTC S3-1.1 
Pe seco Sean Sead O02} If no ACF/VTAM request (CLSDST or eee > 05 
TERASESS) necessaLy or sobeipie: [e-" jos | 
VDCBTTCV=ON then goto 


or 
NCBTTCDE=36 


or 
NCBTTCDE=03 





NCB —-_-_ Perro en nner cone = ate fost If primacy AP in session, then perfora 
.—4 | CLSDST 
[ucBSPL3>0 | s3-1.2| 


tn ee ene > If secondary AP in session, then perforra 
104 ] TERBSESS | 7 pre a8 


NCB 
NCBSFL3=0 


Terminate DISCONNECT task by performing 
DISCOTERS $3-1.4 


SR a ONES ET TSS SE SO GS SOT SN CS AN SS SES SO 


| NCBTTC 

[NCBITCDE j 

| Return to VSB/POWEReS®e 
ylet 

| = 


| | | 


| NOTES { MODULE j LABEL REP } 


Routine IP#$$S3 is attached by the 


NOTES 





Depending upon the situation just | 
gention either routine CLSDST or 


PNET Driver as a VSE/POWER taSk f 
TERMSESS is called. 


whenever a session has to be 
tera inated. : . . 
Following registers are used : 


Session termination is reguested 








| at the location of the local node RZ = VDCB Address 
| by the operator when entering R3 = WIB Address 
R4 = RPL Address 
*PSTOP PNET,nodeid® or RS5 = SSCB Address 
*PEND*. R6 = Wor ister 
Q . ‘ ; : R7 = W Address 
Session termination is initiated R8 = PNCB Address 
by a remote node when one of the R9 = Base ister 
following commands is receaved: RA = CAT Address 
| ; RB = TCB Address 
UNBIND via SCIP exit, | RD = Save area address. 
! TERSSESS via LOSTERM exit. 
: ; ; a TR nes Registers 80,R1,RE and RF are used 
Session termination is initiated by ACF/VTAA. 
when an exceptional condition is ; 
passed to PNET thru an ACP/VTAM R6 Roane at entry to the 
1 exit: DISCONNECT task to the NCB 
representing the session. 
TPEND RA is pointing to the CAT. 
LOSTERM 
NSEXIT. The CHSTATUS routine checks the 
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Four cases must be distinguished : 


has been issued by the local node 
and the local node 1s prima AP 
within this session. Only a CLSDST 
has to be sent to the secondary 
application progran. 


b) The session termination request 
has been issued by a remote aode 
and the local node is acting as a 


status of ACP/VTAM, the status of 
the exit conditions and the status 
of the NCB in order to decide if 


or only cleanup actions can be 
performed. 


Wo ACFP/VTAM request like CLSDST or 
TERMSESS is isSued in case no 
Permission has been given. Onl 
cleanup actions are taken in the 
DISCOTERM routine. 


peseary AP within this session. In The CLSDST routine terminates the $320 
his case a CLSDST has to be sent session aS prigary application 
as renty to the received TERBSESS program. 
or RSHUTD command. : 

: "3 : The TERSSESS routine terminates $330 
c) The session termination request the session as secondary 
has been received from another application prograrm. 
node and the own node is acting as 
a secondary AP within this. The DISCOTERS routine perforas the $340 
session. Only cern te action is cleanup of status flags and 
ppit-rs $e as only an ONBIND has detaches the task. 
arrived. 

No message is displayed after the $360 


d) The session termination request 
has been issued by the local aode 
and VSE/POWER is acting asa __ 
secondary AP within this session. 
A TERNSESS has to be sent to the 
primary AP. 


j 
a) The session termination request 


VSE/POWFR PLM Part 3 


ee TE ERS Fae IT re OR EN TO CED PS TE ENTE EEE ST ET IE ATT TMI LTT REPO SS TEE TTT fm 





completion of the COBNECT task. 
gniy in case of a CLSDST or 
TERBSESS StTOrs Bgaeeze WDSBI or 
CAI as displayed. 


any ACF/VTAM request can be issued 





Licensed Material - Property of IBM 


IPW$$S3 -— CHSTATUS, Check Session Status 
INPUT PROCESS ouTPeOT 





eee >Called by Mainline. 
| fl 
~---~—--------—------> 01} Wait to be posted by CONNECT Task. 


wane nn nnn nnn $ A. 1f TPEWD exat wath RC=4 woe "3 [ou | 
scheduled, then goto / 


=z 
a 
w 


NCBDECB 





fot Check for any ACP/VTAM Exit conditions : 


VDCBTTCv=On 


< 
i=] 
Q 
3 
"w 
ie’ 





w-+----~---—-------- B. If TREND exit with RC=0 [oee” 
Mrhenabl scheduled, then goto / [03 } 
VDCBTTCE=ON | 


NCBTTCDE Bi heel a C. If LOSTERN RC=36, then goto [-+-73 [ow] 


pe woonn-------- === === > D. If LOSTERM RC=12, then goto o0"3[03 | 
: | 


NCBTICDE w= ~----- ==> EB. If LOSTBRM RC=32, then goto bee 


l 





[32 i 

| 

NCBITCDE woe +------ ----- +> F. If LOSTZRM RC=20, then goto see 03 
20 

NCBTTCDE 2-------------------- G. If NSEXIT scheduled, then goto feee >/04 


4 a 


03 


el 


fo3l ACF/VTAS CLSDST or TERNSESS has to be 
4 issued. 


Return to mainline. 


A rE ae PPP Es AREY PRES PA a NOY PS NSE SE A TS NIT TS ST CS ECS Ae ID 


_ 


Return to ma inl ine-see} 
es 


yoet 
=f 


NOTES {| HODULE { LABEL {| 











NOTES 





| SODULE | LABEL | REF 








1 An ECB located in field SCBDECB is ,IPWSHFC 2D The session has to be_ shutdown 
used for communication between a in case of permanent loss of 
CONNECT task and a DISCONNECT task contact which is indicated by 
which might be attached while a scheduling the LOSTERM exit 
CONNECT task is still actave. wath BC=12. 

42 The DISCONNECT task has to check 28 Comgunication is still possible 
the reason why at has been called. when a conditional command has 

. been entered which is indicated 
2a No more communication 1s by scheduling the LOSTERM exat 
possible when ACF/VTAM has with RBC=32. 
erminated its functions which : F 
has been indacated by : 2P The LOSTERA exit has been 
scheduling the TPEND exit with scheduled with RC=20 which has 
RC=4. : been caused by the reception of 
Only cleanup is to be done. | a TERSSESS r est. The session 
. ; has to be shutdown normaliy. 
2B Cosgunication is still possible : 
when ACF/VTAS 1s going to | 26 If the _NSEXIT exit has been 
terminate its functions which scheduled, the contact has been 
1s and ica ted 5y scheduling the dost and no more com|unication 
TPEND exit with RC=0. is possible. | 
; ; Only cleanup is to be done. 
2c No more communication is i 
possible when the buffer limit 3 *Permission given* only 
is exceeded which is indicated andicates tna ace /vtas requests 
by scheduling the LOSTERA exit can be or have to issued in 
with RC=36. ~ order to terminate the session. 
Only cleanup is to be done. No raission will be given if a 
CLSDST or TERMSESS canhot be — 
issued successfully or if it is 
| | not necessarye- | | 
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IP#$$S3 - CLSDST, Primary Application Program Terminates Session 3 
INPUT PROCESS “ ourséoT 





OPTCD=ASY¥ 


SSCBSRPL CLSDST BPlacpi-addr, 
BCB=TCB-ECB, 


Reg 15 Bae TEN gy If initial completion successful, then 


RTNCD=0 
A. Wait for CLSDST completion. 


| B. Check CLSDST completion. 


SSCB ree wonnann nan mnmnno [OT Issue CLSDST asynchronuously: 


Reg 10 tree ee = If CLSDST unsuccessful, then : 


[Rtwcp>0. } ; 
A. Issue error message 1RC4I if 


RTNCD=8 and PDBSK2=0. 
B. Else issue error message 1RD81. 


fou] Return to mainline, 


Return to mainline.eee 
es 

=] 

+f 


I I A LE RS EE ESD Sp Ssh URS SU Sih Pr epee 





NOTES | MODULE { LABEL Jj REF NOTES {| SODULE | LABEL j{ REP | 
ghean the session haa to bens | ie 7h Bapletion the task waits gor [7 PSPC 
ters inated and the appracst tos is final coapletion. | 
a primar . . ¥ : 
only 2 eispst has Lope issued if | 2B A geek oerict ios check is CHECK } 
the session termination request 1 j perforrged. [ 
AP. ad aecdaantc, Saas eee: H H | 3 If any (initial or final IPWSGAM [5365 
If the session teraination Eoauest | Sed Seber are displayed fon say 
AP. D°Esbst base er tssued by { error except RTECD=3 ana FDBK 2=0 { 
thé piuuace AE as a reply to tnd {for which tier be MC4I is 
TERMSESS OF RSHUTD issued by the isplayed}) to inform the operator. 
secondary AP. 
The SEND-RPL located in the SSCB CLSDST $320 | 
is used for the CLSDST. The CLSDST 
is executed asynchronuously using | 
the TCB-EC3 for posting. t 
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IPw$353 - TERHSESS, Secondary Application Prograr Terginates Session 
IyputT PROCESS output 






Called by Mainline. | 
— r—-) 
~ owe ww ee ee eee a oe D ved then oto eo >107 
NCBSEST 2101} If UNBIND recei' s g t y, 


Set “WAIT for UNBIND® flag in NCB. 





[wcBSsuB=o8 } 
| a | 





SSCB 0 emer oo j 03] Issue TERASESS asynchronuously = 
[SSCBSRPL | : TBRMSESS BPL=r L-adar, 
: | BprcD= ast, B6uconp) 
: I eee 
i---—>foa} If initial completion successful, then 
2 
A. Waat for TERASESS coapletion. 
| B. Check TERMSESS cospletion. 
| Se teeta iaen eee fos? If TERMSESS successful and 
3 = If OMBEND not yet received, then 
RTNCD=0 
NCBSSUB=OFFP | 
NCBSEST Be coe as} Ae Wait for arrival of UNBIND. 
NCBSSUB=O0N | 


Reg 15 -------------------->} 06] If TERMSESS unsuccessful, then = 


! 
habe ate A- Issue error sessage 1RC4I if RTNCD=8 


and FDBK2=0. 
Be Else issue error ajaessage tRDSI.- 





and *GMWBIND received © flag in NCB. RCE StSaorF 
NCBSSUB=OFP 


Turn off "WAIT for UNBIND* ——-——-—————} acusest 
fos} Return to mainline. 


Return to Mainline-ere 
a | 












*,/ 
a nl 
NOTES {[" wores |  § MODULE | LAsEL | REP | MODULE | LABEL | REP NOTES {ores | BODULE | LABEL | REF | BODULE | LABEL | REF t 
1 No response is necessary in case $330 A final coapletion check as CHECK { 
an eueeat ND nes been sent by the performed. 
cia 
E 7S After successful comple son 2 of =e IPW Se PC 
2 An UNBIND will be sent by the TERMSESS macro, an U 1 
{ peamery epplicar ion as a reply to sent by the Primary vapphication 
he TERMSESS request. Thus progra! The SCIP 
| SCIe exit routine has to be scheduled and the DISCONNECT task 
informed that IPW$$S3 is expecting or osted after arrival of the 
| ie Ee petting the NCBSSTS flag in one D to resume processing. 
Any error code causes that an IPaeseas 45360 
3 The TERSSESS is issued with the TERASESS ries ne is displayed 
ASYnchronuous option and the task a 
will remain in a wait state until or ts Cb=8 and FDBK2=0 aessage 
the request is completed. tRCAI will be issued. ( 
4A After successful initial IPeSuPc H The session crates oa! NCBSEST $335 
Sate eee a the task goes ma (which 1s used a CIP exit 
wait for final corgpletion. Fe ee te ee ee i ie a } routine) is rese' | 
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IP#$s5S3 - DISCOTERH, Terminate DISCONNECT Task 
Inpur PROCESS OUT POT 





ie >Called by mainline. 
—/ 


Reset NCB session status flags. 


: 





= 
igi 


§ 


SFL1=0 
SPL z=0 
CBS LF3=0 


ze 
8 


ote tere remem ereres Verena \anenememe \/enemaine tree Venn 


NCBACTI 


N CBPREE=ON 


CB 
NCBDTCH=0 


fo2} Set *Pree NCB® flag. Bae — 


i 


Clear TCB address in WCB. See eee ATK 





TCB (Ldr) 





PNCB 0 eee nnnne —------—3 [04] Post PNET Driver. Se 


[PNcaTLD } [TCEP=om ! 
[_ | 


fos} Detach from VSE/PORWER. ' 


| Return to Vse/PownReee} 


Vou 
i 


eee ae ee | 

































NOTES 


The SSCB is released by the PNET 
Driver as the SEND or RECBIVE Exit 
routine Bight still use the save 
area contained in the SSCB. 


1 The session status flags have to $340 
{ be reset as the sessioa has been 
terminated. 


{ -SODULE | LABEL } BEF WOTES 1 MODULE | LABEL 
3 The task*s TCB address which has S347 
been stored in the NCB is cleared 
to indicate to the PHE&T Driver 
that no DISCONNECT task is present 
anyrore- 


4 The PNET Driver is posted to 
perform release of the NCB. 














2 The NCB has to be discarded by the S340 The DISCONNECT task is detached. IPwSDET 
PNET Driver after terminating the 
session. 


SF ae TT pee Nn AF OF COS CERES 
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CHART VE: __IPWS$$VE_- RJE,SNA ACF/VTAM(E) EXITS 


a er er ee ee eee. oe 


IPuSSsSn 
Subtask 


\ SN-15.0} 





VTAS 


| 
eo ee oe ed 


‘ 
[Locom forasy } [rPemp LOSTBRS 
j | | | | 

VE-3.0 eed VE-5.0 VB-6.0 


REJECTL 


VE-11.0 





Chart VE 417 


IPuS$SvVE - INIT 
INPOT 


Vee 
oo 


wee eee eee ee ee > 


SYSCOM 


| ISBPWR 


} HODULE ¢ LABEL |} 


Upon gotry: r15 is setup to 
contain the address of ipwSSVE, 
and is used as base-register for 
the initialization routie. The 
initaalization routine is entered 
from the DOS/¥S subtask in 
IPWSSSN, and will retura to it. 
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PROCESS 





[01] 
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OUTPUT 





IPW$$SN Subtask 
Init ! t 
Establish addressability. Wen ee ee RO 
bipeses) 
Get the address of the VTAS exit list. | 
Set exit addreesses into the exit list: TT. —_____? ACB Bxit Last 





~LOGON 
-DPASY 
~TPEND | 
-LOSTERM 

I 


[exLLGaP ! 


BXLDPASP 
To IP#SsSH Subtaskeee 

ripe 
[7 


iM 


SR TS ES EE SN SLOTS Te TS SS TS TN STN 


EXLTPNDP | 
| 


eee 


romenaser ne | 


REP NOTES { SODULE | LABEL { BEF 


4s get into the VIAM ACB, located 
an the SECB, prior to entering the 
Init coat iae- The $23 dist itseif 
is locat in IP#SSsa. 


The address of the VTAM exit list | 
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CHART VE:__IPW$$VE - RJE,SNA ACF/VTAM(E) EXITS 


IPs$SSN 
Subtask 


| aai8} 
| 
| 





VTA 


[Locos } DPASY [TPeND 1 LOSTERS 
| ! | 
VE-3.0 oat VE-5.0 VB-6.0 
REJECTL 
VE-11.0 
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IPu$SSvE - INIT 
INPUT PROCESS ouTPUT 














[2b. From IPW$$SH Subtask | 
/ ‘ 
| INI? | 
SYSCOM 0 teen e een ene ne nna > Establish add@ressability. ee 
[ToBPuR } | L } | 
t [oz] Get the address of the VTAS exit list. | 
| R10 | | 
CY | oo >{03] Set exit addreesses into the exit list: {7 — | ACB Exat List | 
o>caT : ~LOGON EXLLGBP 
(e=— : “ors Ee 
>SNCB Whit eceueoe freee [fexuprase Tl 
l -LOSTERS | 
ACB 
PWSSSN Subtaskeee 
i aa >: fexitPmpe | i 
a ae. tl 
v i (exteLoue VA ' 
| {EXLNLGHP 
[ ee | 


| 


{ SODULE { LABEL } REF NOTES 1 SODULE | LABEL | REF 


phe qntrys ri3 is got igs A The address of the VTAM exit list 
contain e address of pwS3VE, 4s set into the VIAA ACB, located 
and is used as base-register for 


the iaitialization rou The imit'c ata h 
wnitiralization routine i entered ais Toncte mt IP 
fron the DOS/VS subtask in 

IPW$SSN, and will return to ite 
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IPWSSVE — LOGON 
INPU? 


—— 
| 
| 


M>IPASSVE 


=------—------—-——---> 01 


EL TS TS OE A NT SE NTS SE SE SN Re 


02 


03 


04 


=] (2) (&) [s 


05 


[s) [s] [8] 
~~ 


V1 


[2] 


ey SNe A OR ETT TT POP ES I YS GY pA re EP PN IAG SR “SE-S CO SSSEPUS SN Gere SY NE PSUS” SAP SS PS SS SS SS 


Ee A EE TT TS NT ASR SL EY EN 
[z] [s] 
wo 


: 





1 On entry to this routine,k1 { 
contains the address 4-wor 
foacnes list (ACB-addr. of 
UNAME, reserved, length of LOGO 
message) - R14 containS tne address 


| of VTAM. 
| 
| 
| 


_— 


é The LRCB chain is locked to 
prevent a simultaneous update of 
one LRCb Py LOGON exit and LOGON 
processor IPWS$LH. This might 
occur when LOGON exit is 
antercupted due to a page fault 
and VSE/POWER 1s activated by its 
PHo exit. 


A cneck is rmade whether a LRCB 
already exits. If not, a GETVIS 
request to DOS/VS is issued to 
obtain virtual storage to build a 
LRCB. A free entry 15 looked ear 
exits. 


GETVIS 


in the L&CB if it already 
The VTA Baraeerer List is saved 
in the LRCB. 





PROCESS 





LOGON 


Called at LU logon tire. 


Establish addressability: 
-R10 VSE/POWER permanent area 
RS SNCB pointer 

-R9 IPWS$SVE base register. 


Lock LRCB chain. 


Build LOGON request control block (LRCB) . | 
Uniock LECB chain. | 
ae ee Space already | 


Otherwise: 
Get LOGON SUCB/LUCB space. 


Get WACB space. 


Initialize control blocks. 





Set request for SHA Manager to activate 
LOGON processor 1. i 





Post SNA Hanager. 


Post VSZ/POWER master ECB. 


Return to VTAM. 


To VIAMe@ce 
pet 
ad 


If any error occurred during processing: 


a 
< ecceeoee > 


—/ 


REJECTL 








OUTPUT 


SuCB 
SHEC 


! 


a ES PS EE GFE PE EN EE HN ES SS SS NES EE EI GS I NTS SI LT TS I SP A LE 


gree qe rn RS EO Sg OT Vf TS TS RRS Ie 











NOTES ) SODULE | LABEL | 
t 5 {PREEVIS j 
6 PRe&aVIS 
4 An error occurred on GETVIS for a 


control block. Depending on the 

the storage is | 
released and the LOGON request is 
rejected. 


Since the LOGOS 


type of error 


rocessor 1 aight 
wait for the locked LRCB chain, 
VSE/POWER has to be posted in case 
VSE/POWER iS in a wait state. 





| 


Chart VE 
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IPWSSVE - DPASY 
INPUT 


Ls) 


l 


ie 
eS ee 
tel 
8 


a) 


LOVTAMPARM 


5 VTANUSER 


VTASCID 
I 
&>LUCB 


| 
Lucp | 
| 
| 





Preece sees ve ns eeee sens tod 


ea 


Ls vramPana 
VIAMARPL 


i 


O>RPL 


[RPLCNTDC 


SOOO reese ee ee Oe Re RE OE Ce oe ttm 


a 


PL 


[ReLsiepa | | 


agen gS EE Rape El Ge Se EE SL ST NE SALA SN RN SONS “a SPR SD Se OE AR A EOS I SN SRS 


NOTES 


ao os es eee eee ene ear awen 


PROCESS 


02 


one \ fe 


| 


aaa & 
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ouTPuT 


a | 


Called by VTAM for expedited flow | 
aoeragee Tice. LU request shut down and 
signal) 

10 


Establish addressabiliy. 


If the CID 


an LUCB and parameter list do 
not rgatch: 


eco > 


‘ =f 


If no signal request: 


Se cram. raanaieiammncanetioamncactonnmmtoncdhanetangeratontesnath ertammesh com tenant ached: nant_ad chia ecth dette nem cocatetatl ace emnteemetemebcenineemasmateaetaeensieimiamnmmteanemiaaal 











| v 
If not request to send signal: | 
sos” [10 ] 
poeed 7 
Vv 
Set signal received indicator in LUCB. i— | 
IP not RSHUTD request: | | = LUCB 
et ee LOCB 





a a aT 


Set REQUEST STOP SESSION indication. 








SUCB 





Post SNA manager. 


u 
= 
1 
o 





Yow ena Yarce nec enem \/ucemon V/ 


: 





Post VSE/POWEBR master ECB. 


Return to VTAM. 


REF 





On entry to this routine, R1 
contains the address of a 5-word 
parameter list (ACB-addrress, CID 
of terminal, user inforration - 
here the address of the 
corresponding terminal LUCB 
humper of bytes received and 

| address of a read-only RPL). R14 
contains the return address of 

| VTAM. 


eer ean ene oe gee 
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NOTES 1 
5 If a request-to-send signal is 


LABEL 


receiv 


an information pit is 
set in 


_ ; LUCB, which is 
periodically checked ‘by the 
anbound and owtbound processor 
running on this session. If th 
! bit is’ found to be set, the 


the | 
procecscr will suspend to allow : 


e 





ata-flow inbound. 
The second “BS of signal which 1s 
accepted is. UBST-FOR-SHUTDOWN. 
All other signals are ignored. 


ree ener cern eee 
ee ee ee 


| 
| 
| . 





Licensed Material - Property of IBM 


IPWSSVE - TPEND 











Inpur PROCESS ouTruT 

sb. 

eee >From VTAS 
——,_/ 

i TPEND 
VTAM shut down 
for} Establish addressablilty. 
R1 Seer et eee een am, fo2l Set SNA stop code in SUCB. See ne Ne es 


——— ed 


r 


L>VTAMPARS 


VTAMNRC 





fo3} Post sma manager. a. 


Post VSE/POWER master ECB. Son 











| SNEB 
Return to VIAK. CAT 
—_—_— 
| [pags i 
To rs 


Yemen 
un n 
=z =z 
iv a2 
wo oe 
ee CT I a POE 


pe 
(a7 
v 


| | | 








NOTES } MODULE | LABEL | REP t NOTES { A4ODULE { LABEL { REF 
| 4 On entry to the routine, R1 | 2 Depending on the VTAS reason for i 
containS the address of a 2-word shutdown, a HALT or a HALT 
Scare list (ACB-address, reason IANEDIATE indication is set in the ' 
or shutdown —- i.e. SacB. 
O=normal,4=quick halt). R14 | 
contains the return return address | 
to VTA. 


wren 





IPasS$VE - LOSTERSA 


INPUT PROCESS ourPUuT 


1 


t 
| 


e 

es e 

[2b >From VTAG 
—/ 


ae u pp at ata ee re LOSTERS 
VTAMCID | 


VTAMUSER | 
fearon | | 
| 








Bstablish addressabiiity. 








----->}02) If the CID in LUCB and parameter list do 


VTAMPARS not match: 


VTASUSER 


| {| 
aa we END |i 


{LUCD | 


0009 0008 Oo 08 OF or Oe en OF RF ad 





Set stup session request into LUCB. 





04} Post SNA manager. 


Heo w 


O05} Post VSE/POWER- 


06] Beturn to VTAMS. 


er ce ce a ee CE OS SE Se TE I ES SA NEE re OP 


| 


















NOTES 


} 4 On entry to this routine, R1 
contains the address of a 4-word 
perencter last (ACB,address, CID of 
ermainai, user information - here 


{ MODULE {| LABEL | REP 





as set in the LUCB. 


BOTES ; } SQDULE | LABEL j t 

3 De od 189 ce the LOGOFF reason, a | | | 

the address of the correspond ing | | 
LUCB, reason for LOGOFF - 

32=cONDITIONAL LOGOFF). R14 | | 


HALT or LT ISMSBDLIATE indacation 
contains the return address to | 
VTA. | | 
' t 
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IPa$$SVE - REJECTL 


INPUT PROCESS ourpur 
| SaaS Sees Sees Hs! 
spouse, 
et tleee SProm LOGON 
sme 
: | REISCTL 
ts 3 


attetaed 2[or] Set reason code for message 1V061. 


| [oz] Free previously optained LOGON space, 
using PREEVIS. 














|foat Set up NI8 and &PL to terminate the VENIB 
- session: 
i | [wrasya | 
VTAMPARM 000 w2--~-=----- paiaeeey, -LUNASE in NIB. 
[VTASLON } | rere “ADDRESS of aCB in RPL ATR " > RPL 
oo ptooocen > -address of NIB in RPL ooo Ts RELACE 
SNCB arr aS Se ee t 
: Seep deco ova ot RPLARG 
[Snac H : batches 
ee | 2 
De oe bead ie pa} 


fa (Nr 5) | 


EI Ge ORS TE SS ER SS SSN SSE SO ON 


[z] 


Build message 1¥06I : 


-Obtain text frog sessage definition 
module. 


-Insert LUNAME. 
-Insert reason code. 


| 

4 

‘ 

! 

' 

1 

' 

' 

| 
v= 


&>CAT 


[ [casa 1 


DIPWSS38D ween eten= 


fvoex } | 


VTAMPARS = 2 tren 


[LVTAaLUN } | 
! 





| 
! 
= 


r 


t.. OF ve oe Ores er ee tomy 
ee eS 9 aL Yl 
<= 
w 
: C 
n 
t& 








ST? Just Set up a CCw and a CCB to present 
message 1¥V06I to the central operator. 


oom 


Cn a 


| 
| 
: 
| : 
— 
| | 
: 


VACCB —-_ eee enn ene : | 
| | : . ASGBUP < 
: = Issue EXCP and waat to present the 
: ein fatal 
VECCH1  —-_— enn : 
H 3 issue CLSDST reguest to VTAM to 
ae { 3 terminate the s@ssion- 
! : To LOGONeee 
MSGBUP eee _-—~ 


| Oe 


NOTES { MODULE | LABEL | REF I NOTES { SODULE {| LABEL | R&P 


i ! | we (ie ! ! i 


| | | | | eis bst | | 





NO 
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